le 1 er hebdomadaire des programmes informatiques 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20 . HEWLETT PACKARD HP 41 . MULTITECH MP-F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 
ISOLA surHP41 



Si vous vous sentez triste et solitaire, votre HP41 Csera un 

partenaire ideal pourjouera... ISOLA ! 

Isolez votre adversaire, et vous ne serez plus seul a etre 



A deux c'est deja mieux, non 1 



F DISPOT et R VISSOTSKY 



8928 81/87 


21 STO 93 


42 STO 19 


63 STO 88 


81*LBL ■»■ 


22 STO 64 


43 STO 24 


64 STO 17 


62 SF 27 


23 STO 95 


44 STO 28 


65 STO 26 


83 SF 26 


24 STO 99 


45 STO 33 


66 STO 35 


94 CF 21 


25 STO 25 


46 STO 38 


67 STO 44 


95 CF 29 


26 STO 2? 


47 STO 41 


68 1 


86 FIX 9 


27 STO 16 


48 .8 


69 STO 18 


9? aw 


28 STO 36 


49 STO 12 


76 2 


68«IBL 68 


29 STO 43 


59 STO 13 


71 STO 34 


99 .2 


39 STO 47 


51 STO 28 


72 25.3 


19 STO 89 


31 STO 48 


52 STO 23 


73 STO 55 


11 STO 67 


32 STO 49 


53 STO 29 


74 46 


12 STO 45 


33 STO 59 


54 STO 32 


75 STO 56 


13 STO V 


34 .5 


55 STO 39 


76 34 


14 .3 


35 STO 18 


56 STO 49 


77 STO 58 


15 sto e: 


36 STO 15 


57 .9 


78 18 


16 STO 86 


37 STO 37 


58 STO 21 


79 STO 59 


17 STO »6 


38 STO 42 


59 STO 22 


86 -PRET- 


18 STO 51 


39 .7 


68 STO 36 


81 flVIEH 


19 .4 


46 STO 1 1 


61 STO 31 


82 BEEP 


29 STO 92 


41 STO 14 


62 3 


Suite page 14 



LES CONCOURS PERMANENT^ : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRl- 
MESTRE (Reglement en page interieure) 



PATOIS BASIC 



GESTION DU GRAPHISME 

Les couleufS au nombre de 16, sont 
accessibles par des caracteres de 
controle. Ces caracteres de controle 
sont inseres dans I'argument d'un 
PRINT Ces caracteres de controle 
apparaissent lors d'un listing sous ia 
forme de caracteres graphiques. 

TABLEAU DES CARACTERES 
GRAPHIQUES 



KEYBOARD COLOR 
BLACK 

WHITE 

EEIH red 
EE1D 

PURPLE 
GREEN 

BLUE 
YELLOW 



DISPLAY 
B 

a 

a 



de 25 lignes de 40 colonnes Outre 
les instructions PRINT, i[ est quelque- 
(ois necessaire de POKER directe- 
ment les caracteres dans la zone 
memoire ecran, car le Commodore 
64 ne possede pas destructions de 
tabulalion (locate. UTAB. HTAB. 
etc.). La memoire d'ecran debute a 
I'adresse 1024 et se termmeen 2023. 
La formule 1024+X+40*Y permet 
d'obtenir la position memoire du 
caractere de coordonnees X.Y 
(colonne, Isgne). 

La coufeur peut etre geree de la 
meme facon grace a la formule 
55296+X+40*Y 

Le COMMODORE 64 dispose de 
SPRITE, c'est-a-dire de figures que 
Ton peut definiret animersurl'ecran. 
L'utilisation de SPRITE permet une 
gestion simple du graphisme, in- 
cluant les couleurs. les collisions, les 
superpositions et les variations de 

la '" es Suite page 9 



les programmes des lecteurs qui 
avaient la vedette, pas moi ! 
Continuez, vous etes passe a la tele ' 

Gerard CECCALDI 



MENU 



2 EDITO 



BO 

BO 
BO 
BO 
BB 
BD 
BO 
BD 



Ces caracteres peuvenl etre gene- 
res avec Instruction CHRS 
Certains PEEK et POKE sont utilises 
atinde modifier la couleurdu fond ou 
la couleur du bord de I'ecran (53280 
et 53281). L'ecran texte est compose 



ORANGE 
BROWN 
LT. RED 
GRAY t 
GRAY 2 
LT. GREEN 
LT. BLUE 
GRAY 3 



■ 

S3 



II 



II doit etre facile d'avotr "la grosse 
tete" Lasemainederniereeneffet.je 
me plaignais que remission ORDI- 
NAL 1 de Michel CHEVALET sur TF1. 
avait des horaires abracad3brants 
Elle est retardee des la semaine 
proch3ine de 17 h 45 a 18 h 30. De 
plus,l'emissiondu12marsestconsa- 
cree en partie a HEBDOGICIEL et 
nousy ferons connaissance. George 
LECLERE. sur Antenne 2, accueilie- 
ra egalement HEBDOGICIEL le 
16 mars. En toute logique.je devrais 
bomber le torse et me considerer 
comme un genie de la presse. puis- 
que la tele s'interesse a I'Hebdo ! En 
fait, si la television a bien des defauts 
elle a aussi des qualites et les gens 
qui fonl ces emissions ont compris 
que I'hebdo etait le journal des pro- 
grammateurs francais et que c'etait 



APPLE It Dominos 

Patrice RABBY Page 6 

ATARI Mtam-Miam 

Christian ALLAIN Page 4 

CANON X-07 Frissons 

Pierre LOTZ Page 3 

CASIO FX 702 P Machine a sous 
HiepN'GUYEN Page 15 

COMMODORE 64 Sky-Raid 

J. THIRIAT Page 12 

VIC 20 Impdls84 

P. 80ICHUT Page 13 

HP 41 I sola 

F DISPOT et F, VISSOTSKY Page 14 
MPFII Multi-puzzle 

Michel ZINDY Page 12 

ORIC 1 Accords pour guitare 

Francois HIRSCH Pago 10 

MZ80 Carte du monde 

LucCOIFTIER Page 7 

PC 1211 Rallye 

Pierre-Yves DESCAMPS Page 4 
PC 1500 Tracourbe LCD 

Francois P1CARD Page 1 5 

ZX 61 Panne de voiture 

J.M. MICHON Page 2 

SPECTRUM Graphique 

Patrice BIHAN Page 4 

TRS 80 Creation de dessms 

Jean-Michel TABESSE Page 5 

TI99 4/A(b.s.) BigMur 

Michel PICKE Page 3 

Ti 99 4/A (be.) Monkcha 

F MAMIER Page II 

THOMSON T07 Allumettes 

Marc RAYNAL Page 2 

Programmes logos Tableau anime 
JanineBOUYGUES Page 6 

Mystero 
JanineBOUYGUES Page 12 



-IIPPORE8US trouvez 1'expression qui se cache dans la BD. de I'hippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'mformaliqun 
olution en page interieure) 



MoT ANGlAtS, ~^4 \W\ 

■j /ARiTH^e]Tipue ; L^r,<*^ r 
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emagne 3.50 DM - Belgique 55 Frs - Canada 2.50 $ ■ Luxembourg 57 Frs - Suisse 3 Frs - 



ALLUMETTES 



VousjouezcontreleT07aujeudeMarienbadavecunseul 
tas d'allumettes pouvant aller de 30 a 40 allumettes. La 
particularite du programme est que le T07 apprend a 
jouer avec vous, il memorise les bons coups et plus vous 
jouez. plus il devient fort. 

Marc RAYNAL 
Mode d'emplo' : 

La l*™fois on telance par RUN et si on joue avec T07 sans faireune ma- 
noeuvre qui efface ses tableaux (coupure de courant, touche initialisa- 
tion, RUN etc.) on peul alors enregistrer sur une cassette un fichier qui 
permet(1orsqu'onreprendraunenouvelle partie) a T07derejouer avec 
Texperien.ee acquise" a la seance precedente. En fin de partie pour en- 
registrerce fichier surcassette.il suffitde preparer unecassettevierge, 
de tnettre le magnetophone T07 en position enregistrement et de re- 
pondre NON a la question "on recommence T. 

Lors de la partie suivanle il faudra alors charger le programme par 
LOAD puis le fichier : pour ceta il faut enlever la ligne 1 5 CASS—1 du pro- 
gramme, positionner la cassette contenant le fichier, metlrele magne- 
tophone en position PLAY et faire RUN T07 affiche alors les regies du 
jeu et criarge pendant ce temps le fichier, 

On peut ainsi fabnquer un fichier "Debutant", un autre "niveau moyen" 
et un autre "niveau fort" permettant a T07 de s'adapter au joueur. 




GAMES 



SUPPORTS 


HUM. 


BOMB MOM 


Kru*OHHU(Cl>*< 

Minn 




TWV 




Wtiw>n 




IOMI 
S-fCTVOM 

tMtn 


OMCI 


■.IT .;..:. V : 


COMHOOOtl 


rutoinrwot 


nxAS 


■OMIfOH 


n»cfn omnsmwuNiiM) 

nSTT>*l FHTIVHAnOHAl OU SON 


MtVIAUI-ST 


WOIJIX) 



. 

28 CONSOLE e.2«:C0L0fi 4,ft:CLS 

39 LOCATE 10,e:C0L0« l.TiPPINT- JEU DES A 

. LUNETTES' 

KSOLE 2.3--C0L0H e,5 = CLS 
S* LOCftTE 9.I9:CO«S0l£ 1 8, 84 (COLOR 1,7 

JEU DE3 ALLUHETTES avec opppemti 

158 Pel*: CHPf ■ I2);CHRI " ■ 

:-:■ po:iT Tfl8<7);-JEU CES ALLUnETTES" 
:--e PRIXT 

-. KPAR1 I- VA 3e fiLLUHETTES 

:?ft PPIXT'ON DOIT EN PETIPER A TOUR DE R 
OLE* 

ilMT'CEtUl OUT. PREND LA DEPNIEPE a 

2:8 prim: 

tl'i PBIMT'CHACUN P EUT En PETIPER- 

;;e ppint*une ouantite qui v&rie entre i 

2.1ft PRINT-ET LE DOUBLE DE CE SUE" 

2Zi PPINT-LE JOUEUR PRECEDENT PUIS" 

266 E F_* LECTUPE DU TABLEAU SUP CASSETTE 

276 DIN n<48,4e>,R<3 f 48) 

£75 IF CASS=1 THEN FOR 3=1 TO 7«0e:N£KT 

I: GOTO 329 

276 CASS-1 

239 OPEN •;*,•!, 'NIVEAU* 

259 FOR 1*1 TO 49:F0P J=l TO 49 

389 INPUT »l,H<Ij J> 

319 NEXT j:NE>IT UCLOSE •! 

329 PRINT CHRf(I2> 

339 =PINT "AU PPEHIlP COUP ON^EUT- 

349 PRINT*EN PPEND-E MHT I SOIT 2-=LI=C 

SP.LIN-1 

?59 N=39:N!=36 

369 OOTO 789 

499 REM BOUCLE DE PARTIE 

419 PRINT 

428 PLAV033IC2PE033!-- INPUT'ON PECOKIE 

NCE";A« 

439 IF LEFTKA*, ] ">*N" THEN 688 

i:? priit 



Ritr 



TAB': 



469 PRINT 

479 OPEN "0',tl, -NIVEAU" 

498 FOR 1=1 TO 49:F0P J-l TO 49 

4?6 PRIMTtl,M' I. JJ 

599 HEXT J:NEXT I 

254 CLOSE tl 

528 PRINT CHSf <7>;CHPir7> 

536 GOTO 2508 

699 LOCATE 9,19:C0HS0LE 19,24:COL0R :,?■ 

CLS:PRINT-nEHE NOMBPE D ALLUHETTES"; 

619 PLAY-03SI02RE93SI-:INPUT AI 

629 IF LEFT*<ft*,lX> , t|- THEN 789 

625 PRINT-ON EN HET C0MBIEN7- 

638 PLAY*Q3Slrj£PE0-SI-:INPlJTUAIT 639;:5, 

HI 

649 IF Nl<6 THEN PLAV04D0O3LAO4DO*:GOTO 

638 
656 IF NK>INTCNI> THEN PLAV04D0D3Lh04[> 
O'iCOTO 638 
666 IF NK4I THEN 789 
678 PLAY-04D003LA04Drj':PPINT"PAS PLUS DE 

48 S.V.P. * 
638 GOTO 638 

798 REM INITIALISATION D UNE PARTIE 
718 K=Ni:N2=2:»(3=1 

711 ATTRB , l:fiL*=*v*-AL6»*"X' 

712 FOP 1=2 TO N:ALI=AL**-'':ALBf=ALB**- 

x- 

713 NEXT IiATTRe 8.8 
729 FOR 1=1 TO 48 

739 9(1, I)=8:P(2,I >=9:P<3. I)=9 
746 NEXT I 

745 COSUB 2799 

746 LOCATE8,LI:C0NSOLE 18,24:C0L0R 1,7 
766 PLAVT204SI05PE04SI": INPUT 'VOULEZ 
vous com*iencep-;a» 

779 IF LEFTKAI, 1>:>'N* THEN 998 

796 IF fi*O"0UI" THEN 2880 

S99 FOP 1=1 TO 49=F0P J=l TO 40 

318 H(l, J)"9 

328 NEXT JJNEXT I 

390 RE« LE JOUEUP JOUE 

918 REM 

929 LOCATE0,LI*I:CONSOLE 18,24'COLOP 1,7 

:PPINT-C0N8IEN EN PPENEZ-V0US7- 



525 PLflT"T204SI05»EQ4SI- : INPUTNAr 



?;5: 



938 IF C<I THEN PLAY"O4D003Lh04;.O-: "."[ 

928 
Mfl [F COINKC) THEN PLAY-04D003LA04D0" 
:C0T0 928 

958 IF C;=N2 THEN 1989 
960 PRINT CHR*(7);CHRS(7> 
979 PLAY-04D003LA04D0-: PPINT'ENTPE 1 ET 

-;N2;- s.v.p. - 
938 GOTO 928 
;988 IF C<=N THEN 1189 
1818 PLAY-Q4D003LA04DO-: PRINT *TSSS... 

TSSS... "-,,-IL N EN RESTE OUE "SN 
1938 GOTO 920 

1189 REn LA REPONSE EST VALA8LE 
1118 IF CON THEN 1589 
1128 REM LE JOUEUR A PERDU 
1138 PRINT CHRt<7> 
1148 PLAY-03SI02RE03SI-:PPINT 7ABU&':-J 

AI CACNE II" 
1158 PRINT 

1168 FOR I«I TO <N3-1> 
1178 N>P(l,I):(t2»P<2,I):C'P<3.I> 
1188 rUN,N2)*rKN,N2>*C 
1196 NEXT I 
1200 GOTO 419 

1588 PEN HISE A JOUR TABLEAU C'ES COUPS 
1519 P(1,N3>*N 
1529 P(2,N3>-N-C 
1538 P<3,N3)»- -I 
1548 N-N-C 
1558 N3"N3*1-N2-2«C 
2688 REM LA MACHINE JOUE 
2919 IF KOI THEN 2298 
2828 REM LA MACHINE A PERDU 
2838 PRINT CHR«(7) 

2848 PLAY-03SI02RE03S1*: PRINT "BON-BON- 
f ACCORD, J AI PERDU II" 
2859 PRINT 

2960 REM HISE A JOUR MEMOIPE D APPRENT1S 
SAGE 

2979 FOR 1-1 TO <N3-1> 

2980 N>Pi 1, 1):N2»P(2, I i:C^-p 3.: 
2050 *!<N.N2>--KN,N2)»C 



2189 NEXT I 

2110 GOTO 410 

2289 REM DETERMINE LA CASE RAX 

2218 M1*-!800:1F N2^N-I W .HIH N2-N-1 

2228 FOR 1«N2 TO 1 3TD»-I 

2238 IF M<N,N-IK = MI THEN 2399 

2240 M1=M(N.N-I> 

2258 C=I 

2388 NEXT I 

2318 PRINT "J-EN PREWS ": C:lI-CSRLIN 

2328 P<I,N3»N 

2339 P(2,N3>-N-C 

2349 PC3.N3W 

2358 N-N-C 

2360 N3-K3*I 

2378 N2"2»C 

2388 PRINT'IL EN RESTE ";N 

2385 GOSOB 2788 

2358 IF N-l THEN 1138 

2409 GOTO 920 

2508 END 

2688 PEM AFFICHACE ALLUMETTES 

2618 COKSOLE 2,8:C0L0R 5.7tCLS 

2620 BRf-LErn.ALt.LEN.AL* .-C > 'RIGHT I « AL 

B*,C) 

2638 FOR I-I TO LENIBRI> 

2640 PRINT MIMlBPl. I. 1 ■: 

2650 PLAY -A1803P0*:NEXT I 

2o68 CONSOLE 9,24;COL0R 2.7:PETURN 

2788 REM 

2718 CONSOLE 2.S1C0LOR 0.2'CLS 

2728 BP«»LEFTf<ALI,N>.RIGHT«<AL8«,LCN>AL 

Bf>-N> 

2725 LOCATE 0,5 

2730 FOR I«l TO LEN*8R!> 

2740 PRINT H1D1'BR*.1.1 >!CHPI< ■ ■: 

2759 NEXT I 

2768 RETURN 

40000 NOTOR ON 

49095 FOR 1*1 TO 1808 

46810 NEXT I 

40015 FOR F-] TO 5 

48028 MOTOR ON 1T0RG*] *0108:n[ ■ i. 

46825 SAVE"ALLUKET".t c " 

48038 NEXT F ■ 



PANNE DE 
VOITURE 



Ce programme va vous permettre de depanner en un din 
d'ceil voire voiture ou de vous devoiler quelques uns des 
mysteres de la mecanique automobile. Un programme 
qui vous donnera, sans doute, des idees pour des reali- 
sations plus complexes. 



J.M. MICHON 



Entrez les chaines de caracteres ainsi que la dimension du tableau. 
comme indique dans les remarques du programme. N'oubliez pas dele 
lancer avec GOT0 100, et non pas RUN. 




3 REM 

O REM PRNNE SUR RUTOMOBH-C 

10 REM DIM RS 133,34) 

39 REM FOR 1=1 TO 23 

£S REM SCROLL 

28 REM PfiUSE 108 

30 REM INPUT OU PRINT fi*(I) 

31 REM INPUT SUfiMD UOUS ENTREZ 
LES DRTR 

4.0 REM NEXT I _ 

30 ReM PRINT "O.K DRTR ENTER 1 ' 

60 REM KILL L IONE 3 R 60 SUP 

61 REM •nVOICI DRTR R CUTRCf? < 
.••DC 1 R 22*» LE PRINT/LIG 30 

5ERT R REUI5U POUR SI CRREUR 

62 REM 

63 REM RESERVOIR DyESSENCC 
64. REM CICLEUR PRINCIPRL 

65 REM GICLEUR RRLENTI*UIS REG 
L 

66 REM 3TRRTER 

67 REM PILTRE R ESSENCE 
88 REM riLTPE « RIO 

69 REM rLOTTEUR OU POINTERU 

70 REM rulTES O ESSENCE 
7-1 REM POMPE R ESSENCE 

72 REM BOOINE 

73 REM DIST IBUTEUP 
74- REM CONDENSRTEUR 

75 REM DYNHMO ET REGULRTEUR 

76 REM 6RTTERIE 

77 REM BOUGIES 

76 REM CflLROE OU D I3TP IBUTEUR 

79 REM COURROie DE OYNRMO 

60 REM SOUPRPE 

SI REM COMPRESSION 

62 REM POMPE « MUILE 

83 REM JRUGE R MUILE 

8* REM MRNOMETRE D MUILE 

8S REM 

66 REM UNE FOIS ENTRE LE TRBLC 
RU RUEC DIM R» (22,24) KILL TOUTE 
5 LES REM PLUS DE RUN SUP 

07 REM UNIO LflNCER (*<JEC GOTO 1 



130 
ISTe 
140 
150 
150 

rn 

170 
TI 

LB0 
RRT 

190 



230 
ORM 
230 

e 

240 

ILC 

260 
270 
280 



ZX81 



PRINT "PTTENTION UOICI LR L 

PAUSE 600 

— "MOTEUR REruSE DE PAR 

MOTEUR CRLE RU RRLEN 

MOTEUR ETOUFr.RCCELE 

RRTES P.U MOTEUR 

LE MOTEUR NE TIRE PR 

L.E MOTEUR COGNE 

MRRCME IRREG.REGIM.N 

CONSOMMRTION EXRGCRE 

PRS DE PRESSION D MU 

'6YNRMO NE CHP.RGE PRS 

ENTRER LE MO" 
I 
OR R>10 THEN GOTO 27 

ir R-l TMEN LET D* '"HBjjKOBI 



INPUT 



105 PCM COPY MICHON '"HI 



■-HMIH 

Pmf^Te 



330 ir R-3 THEN LET 

340 IT R-4- TMEN LET »* = ' 

360 IF R"S THEN LET D»"' 

360 ir R-6 THEN LET P*- 

370 IT R-7 TMEN LET D»- 

380 IT R-8 TMEN LET D«-' 

390 ir R-G TMEN LET D»-'HH 

400 IF R-10 TMEN LET D«- 17 H 

4 10 CLS 

500 FOR 1*1 TO LEN D* 

510 LET B-CODE D»(I) 

51S LET B-B-14.0 

538 PRUSE 388 

■530 PRINT I,"-",fl»(B) 

53S PRINT 

550 NEXT I 

■560 PRINT " ltriH(»" 

570 PRUSE 800 

sea cls 

590 30TO 100 




SOLUTION DE LHIPPQREBUS: 

Voici un petit programme pour venif en aide aux lecteurs d'HEBDOGI- 

CIEL possedant un SINCLAIR ZX 81 et qui n'arnvenl pas a trouver la 

solution de I'HIPPOREBUS 

II suffit d'entrer les differentes valeurs des DATA de la solution, les 

unes apres les autres. 

Ex : N° 19 d'HEBDOGICIEL Taper au clavier : 

■66657868693277657178698473818569 - . 

Philippe PEROAN 



SOLUTION 

DE L KIPPOREBU5 

POUR ZX 61 (IB K) 



z% 



8A 



10 LET R t I 1 )' e "| 

r^n i ir 



ii—ii ii— i 

|"i2pLJrrJ5*|(3>."| Iff | | u% 

„1£2— ^S. OU** ■"" "" * ■■■ " 

140 LET R« (S) •"" 

ISO FOR 1-1 TO 5 

1B0 FOR J.R1 TO I STEP -1 

170 PRINT RT J,2;R*ri) 

1B0 NEXT J 

190 NEXT I 

200 LET X»«"535aS3375eSJS*5!5S&5 
9aiB4S9S1535a5(i)5j 555 9p(ii ? 4.5 t i 5 g 5B5 
:.Gf;S9315SB*S95354B9S3596 3 6233535 
960625259635S5362536S53396SB4B9f> 
B525*8061BaBBB""* 
6B98BB950S15S5 
BS13aS3B4B3S6" 
„^iS« LET Y*."3331313131.J03a3()3»3 
02929292e28aB27272727Pe?B2BaB2Ba 
52B2Sa424-a4.a4.a3232322PP^^PPPi3ip 
12 12120202019 19191B181 71 71 716161 
6161S1S151514 1413131SS311 1110 100 
9090808070 70 70 707060606060305060 
4 04.04 04.04 04.04." 

2=0 LET R-l 

230 LET B»2 

2*0 PLOT URL cx»in TO IJI I ,um ( 



Yf (R TO Bl 1 

2B0 LET n-n.p 

260 LET IV^n.P 

270 IF n-1..nn THEN GOTO 290 

360 GOTO 240 

390 PRINT OT 19 , 1, -CffTnEZ LC8 D 
IFFERENTES", RT SB . 0, "URLEURS DCS 

""onrn"" de lr';rt si,h;-soluti 
on dc l Hipponrriufl- 

300 INPUT R* 

310 PRINT RT 19, Xi" 



313 LET D=6 

31* LET E»0 

316 PRINT RT 

320 LET R-l 



O ,0; 



27 



3*0 LET C=URL R*IR TO O) 

3B0 IF Ca33 THEN GOTO *I0 

3B0 PRINT RT D,E;C, " ",C#1R« 

370 LET n=fli3 

360 LET Ot>6*2 

362 LET D-D*l 

38* IF D>-21 THEN LET E -C »6 

3B6 ir Di-?i Turn i.ct D-O 

~ R« THEN STOP 



420 PRINT RT D,E,C*«; 
C-271 
4-30 GOTO 370 
4*0 5RUE "HIPPORrnUS" 
450 GOTO 1 



Voila deja deux mois que les lecteurs d'HEBDOGICIEL decouvrem 
chaque semaine un nouveau rebus en premiere pageet il ne fait pas do 
doute que, au moins une fois, chacun d'entre eux. a eu la tentation do 
regarderla solution 

Malheureusement pour les possessours de FX 702 P. celle-ci est don- 
nee en codes ASCII que leur machine ne connalt pas Qu'a cela ne 
ttenne : tapez ce tres court programme, a la question de la machine "?* 
repondez chacun des chiflresde DATA dans lordreouilssontpublieset 
lorsqu'il n'y en a plus, tapez le code 255 (fin de ligno), La solution vous 
paraitra evldente. 

Ce programme interprote les codes ASCII do tout I'alphabot a loxclu- 
sion des slgnes de ponctuation (points, virgules. tlrets) L'espace est 
codee 00. Ne pas oublier d'augmontor lo nombre do memoires a I'aldo 
de la commando DEFM avant lemploi [le nombre do variables doit etre 
suponeur ou oga! au nombro de lettres du mot +■ una) 

J MAROT-LASSAUZAIE 

10 FOR 1=1 TO 8 
20 READ X 

N1 HR tX)| 
40 NEXT I 
SO END 

><?, 82, 65, 94, 79,82 ■ 



FX702P 



LIST 19 
18 VflC :*="flBC0EF6 

HIJKLIBONRSIUV 

BffZ" 
28 IKPfl(I) 
18 l»HI 
18 IF R(l-1)>255 1 

HEH 26 
58 FOP. J=8 10 1-2 
(8 IF fl(J)=8IPRT " 

"HHBtTJ 
78 PR! HI0(P,UH4 

H HEX! J 




FRISSONS 



Votre CANON X 07 est plus grand qui) rVy parait : il _ 
en reserve, a I'aide de ce programme, de nombreuses pie- 
ces inexplorees. 

Prudence neanmoins : peu de personnes ont pu sortir vi- 
vantes de cette demeure et les coups et !es blessures 
dontvousserezvictimenesontpasremboursesparlase- 
curite sociate. 

Rerre LOTZ 

3 CLEAR.DIHPX<2,7,4>il-RND(0>iI-RND(3> 

10 DATAO, 1210001 1,11.0.0.0,111,0,0, 12234,0 

20 DATA2OO0221. 10134034.3434100, 10OO0O34 

23 0ATA21210.11OO0. 12,0. 11011, 10112,20000 

30 DATA1, 21112101,20100101.21012012 

33 DATA2I 1,34010. 12.0. 11. 11010.2200 

M ClS[GOSuB730O: IFW 0THEN2300 

7© RESTORE t IFNTHENFORI-UON-UiREADTiNEXT 

I •*TO24STE?>ilH»0 
110 READT:lFT-0TMEN19O 

'. SO FOfi.I-BTOlSTEP-1 tV-INT(10.(T/10"J-INTlT/10' J>) ) 
ISO ONV*IGOT0180. 140. ISO, I60, 170 
140 UNEIH, I l-IM,4, ! 1 ;G0TOlB0 
ISO LINEIH, ]>-(H*l.IMLINE(H-4. I>-<M»6, Il:GOTOieo 

■ooToieo 



Regies dujeu 

Vous eles un personnage se dep'acanl dans une maison abandonnee. 

a la recherche dun Iresor 

Le plan de chaque stage sous sol : niveau 

Rez de chaussee : niveau i 

Etage niveau 2 
esl realise sur un damier de 8 cases par 5 

A chaque tois que vous passerez par le centre del'unedeces cases, un 
poml restera affiche a cet endroit. Vous saurez alors que eel te partie de 
la piece a ete exploree et qu'il vous faudra chercher ailleurs Un esca- 
her, materialise par [ vous permettra de changer d'etage a volonte. 
Pour vous deplacer. uliiisez les qualre tleches du clavier Vos points de 
vie seront decrementes au tur et a mesure du deroulement du jeu. II 
vous faudra done ressonir de la maison avec le tresor avant d'avoir 
epuise tous les points 

Si lors dune rencontre, vous decidez de combattre. il vous faudra pro- 
ceder comme sui! : 
* Message "A VOUS" : appuyer sur une des tleches de direction pour ti- 



rer sur voire adversaire 

* Message "ATTENTION" poureviter le t<rde votre adv«rs»r«. i vous 

faudra appuyer sur une des fleches enlre ttnslanl de der - • 

ladversaire et I instant auquel ce tir vous atteint 

Vos points de resistance determment le nomtwe de coups que vous 

pourrez porter Les points de forces reodront ces coups plus ou motns 

meurtners pour votre adversaire 



At40t* 



%-07 



180 ' 



LINE (I 



uNE I 



6. I> 



1-6) sGOTOiaO 



LINE-'. 



190 NEX 

200 FOBI-*T042STEP6:M-O 

210 READT: IFT-0TMEN29O 

220 FORJ-3TOlSTEP-ltV-INT<IO.(T/10-J-INT(T/tC 

230 0NV*1G0T0280. 240.250. 260, 270 

240 LINE<I.H»-<l.H.a>:G0T029O 

230 L1NE(1.HI-U.M*1>!LINE<1.H-41 

: . •■ ; .M-a- : goto2BO 

270 LIHE41,H*2)-4I.H*6) * 

280 H-H*6;NEITJ 

290 NEXTI 

300 L INE<0,0>- (48.01 lLlNE-(4B.30>:LINE-<0. 30) 

310 I FN- 1 TmENFOR 1-23T0231 PRESET ( 1 , 30> : NE X T 

22,221 - (20.22) : L INE- <20. 20; : L INE- (22,201 
130 FQRI-0TQ4:F0RJ-OTO7i |PT%(N.J, I I-1THENPSET 13*J*6, 3* I »6) 

' : . (TJ, I 
lOOO FORI-1T05-|NTIIO-RND(I> I 

- ICK40)lPSET(A,8>l IF INT <C/2)-C2THENIOOO 
IO10 PRESETlA.Bi 

1015 ONC2*.36OTO1020. 1030, 1040, 1O30 
102O IFPOINT(A.B-l>THENI<XKi£LSEB-B-l:GOTOI060 
P r.'INT<A*l.BITHEN100O£LSEA-A-l:GaTQlO6O 
1040 IFPOINT (A. 8*1 1 THEN 1 OOOELBE8-B* I : G0TDIO60 
10SO IFPOINT(A-I.B)THENIOOOELSEA-A-l 
1040 IFA-21ANDB-21THEN1300 

107O IF8-31ThENIF0X-2THEN2OOOELSEB-3O;G0T01O13 
10BO K-(ft*3)/iiL-(B*3)/&i IFInTiki : •KORINTILX LTHEN1110 
L090 PSETIA.BI: IFP7. tN. >;- I ,L- ] 1 -2THEN8O00 
HOO P-X(N,f;-l.L-l>-lsDX-07.-l:M-N-3:GOTDIOl3 
1119 NEXTIiLOCATEO.O 

-.;="ThENGOSUB950Q 
1130 IFRNDI3J .-.7SANDNTHEN9000 
114'-' :FRND<4J ■-73ANDN-OTHENB690 
USO IFRND(5l >.8TMEN6300 
116© IFRND<6i:.2THENlOO0 

INTTAS(91 S".JE 'SENS. ." : PRINT TAB 1 91 1 ".. COMME. .. " 

12V PRINTTA8'9Ji".. .UNE ": PRINT TAB (9) ;-. PRESENCE. " t 

1220 GOSUS-': 

1230 IFRNO ■ 

1240 PR1NTTAS<2> :"VOUS RENCONTREZ"! 

1290 RESTDRE154O:F0RI-OT0ftND!7)»4:READT»:NEXT 

1260 C-LEN(I*. jFCPl--;T0C-4:L0COTE 1 , 1 : PRINT'-"! 

1270 LOCATE I.3:PRINT~-"iiNEKT 

CATC :.::FOIriT'- - -T»- ■■•■'! ; G0SUB72OOSCLS 
13 -■■ :- V.-- ■*-EN1471ELSEIFPNDf3>:,3TMEN1470ELSEI400 

IOlSOSUB9920 

1310 LOCATE 3.0:PRlNTTAB<9>:~.ESCALI£R-"lPRrNTTA8(9) 1 "IIDontW 
1320 PBINTTA8l9It" (D) eictnitrt" : ; PRINTTAB (9) f - (Raster" I 

!-■ |T«~IMKEY*I IFT«-"M-THEIWN*1 1 IFN':3TMEN60ELSEN-2:GOT01^ 
IFT8-"D*T> O P^ W 11 IFN-lTMEN6OELSEN»0:G0TO133O 
1350 IFT*-'--'THENi;30ELSEGOSU&750<i;GOT01000 
14O0 PR1NT-Voo« *«»r droit *"jPRINT" un RENSEIGNEMENT i* 

IPBIMT" L^ TPESDR **t";PRlNT" bu nivp»u "! 7 « 
1434 BOS B7200ieOT060 

1470 C-RMDC7) : : c C .4THENr»--VIE"!C-INT(C'40l;WW-«C:G0T014aS 
1473 IFC . ?r"ENT*.-PES!STAMCE":C-INT(C»Sl:R-R*C!G0TO14es 
:4BO T»=-FOF'CE-:C-INT(C»4):F»C»C 

1485 PRINT'-Vou* r*c*vn un don -i:PRINT" d* ■■'"iCI 

■:nT" ot* d* "IT«:PRINT*' SUPRLEnENTAlRES" t : GOTO 1430 
MTAUl SOUELETTE.U" ZOMBIE. Unp GOULE.Un FANlOflE.Un VAMPTRE. 
I SOS CCTAUn DRAGON. Un LOUF--BAPDU.U" GOBELIN. Un ORDUE.Unr nOMIF.IJ 
'-■Un GEANT.Un DEMON. Un MINAUTORE.Un SPHVNX.Un CENTAURE.Un 
1540 DATAUn* FEE.Un MAGE.Un MAGICIEN.U" PROMENEUR 
I roPI"lTORND( 1 1 ) •1B:PEADT4:NE»T 



In TRDLL 

i BALROG 
SORCIEB 




MR=INT(RND(B»"l'i' -1:MF«INT IRMX81 • 1 -: 
PRINT-Fjcp * vou* u tiani-l:FRINTTABr2>:T»:&GS: , 
CLSiPRINTTASfS] lT»iPft)NT- OUE fa I TES-VOUS' 
PRINT-lFluite ou (Cloadat ': PRINT" : 

r»-lNKEV*l 1Ft«-"F"THEN1630ElSEIFT»-"C-ThENI7S.-€LSE1S90 
CLBl PRINT" BONNE CHANCE. . . "UJ-StH-O 

LOCATE J. Is PRINT' "Il LOCATE «. 1 :PRINTCMR» (I &1 ; 

IFJ-!?TMEN16BOELSEIFN>-JTHEN170O 

LOCATE J.t:PRINT" "II LOCATE N,HPfIlNT* -I 

M-M»RND(4>»3.S:J«'J*llGOT0164O 

LOCATE 1.2:PRINT-Vous *v*i r*u»»i «-:PRlNT~ lui ECHAPPER" 

G7.-G7..3:G0T01430 

PRINT:FRINT" Vou» >vt: »e*" iPRINTTAB(3M "RATTRAPE-| 

GCSUB7200:CLS:PRINT= • VOUS PASSEZ •" 

PRINT- • UN SALE •"iPRINT- •OUART D"MELRE»-| 

W-INT(W>'1.3)!R"INTlR/l.3)iF-INTIF/1.3HGOT01430 

CLSsPRlNT-RAPPORTS DE FORCE": PRINTTAB(3I 1 "Mnitrt/vnn' 

PRINT"Res. »-"iMRs -♦♦ •"|R1**- 

PRINT"For. **-)MFl"»* *"1FI -**l IG0SUB7200 

CLS.-PRINT- •• COMBAT ••-! RP-R:MI - 1 : M2- 1 

PRINT" "SHRi-'-t :PR1NTT«8(14) I"«"1RP 



RINT" 



1 VOUS. . 



IFRF-0THEN1870ELSERP-RP-1: LOCATE 4.3iF 

LOCATE 3, I I PR INT - -l!E-RNDi9)«B 

C-STICHU): IFC-OTHENiaroELSELDCATE li. !:PRINTRPs 

L1NEIB3. 11 1-149. Ill: IFP.ND<6> ■: . STHENL INE- 1 30, B-E I : G0TO18S0 

LINE 149. Bl- (49, I4)i GOTO! B70 

Ml-Ml+E 

IFMR-OTHEN I FRP-OTHENI 940ELSE I B 10 

MR=m-I:LOCATE 1. 1:PR1NTMR!:LBCATE S. llPRINT* "I 

LOCATE 4. 3: PR] NT" ATTENTION'": t£-RND(9J»8 

FORI-OTORND(9)»20<'0:NEXT:L1N£(30. ll>-(74. I ]): 1FST IO.IOI TMEN1920 

F0RI-1T04: IFSTlC^(0i-OTMENNE%TELSE1930 

LINE-(B3.B*E>:M2-M2-E:GX-GX*M2:GOT01810 

LINE(74.9)-(74.14»:GaT0lBlO 

CLS:FORI"OT01B:LOCATE I .0: PRINT". "i : LOCATE I . 3: PRINT". -{ : NEXT! 

IFM1*PF/«F>40TMEN)''»-".VOUS ETES PARVENU*": L«-"»A 8DUT DU H0NSTRE.":G0T01990 

IFM1>M2TMEW:»-". VDUS AVEZ ."i L»-" "BLESSE LE MONSTRE*" ! GOTO 1980 

PV-PV-lNT(M2.3)l»:»- H . VOTRE ADVERSAIRE ."iL*-"* VOUS A BLESSE «- 

LOCATE O, ltPRINTKtliLOCATE 0. 2i PRINTLH i GOTO 1430 

CLS:PRINT"*» L» CANON <-07 *»":PR1NT"»* vou« «dr* S (.* »»" 

PRINT-44 tout** «•* »»":PRINT"4A FELICITATIONS **"! 

GOSUB7200:CLS:PR1NT ,, VOS POINTS : "I GX*N* (R'F 1 *2:GOT02BO0 

CLS:PRINT" ":PR1NT"J» iuii *u r»gr»t" 

RR1NT" dp vaui *nnonc*r-:PRINT" qu«-"l 

GOSUB7200iCLS 

PRINT" ovou« n*«v« p»»u-lPRINT" uuOuumui-vvcuuuuuu- 

PRINT" uuuiiuu* vosuuuOuu":PRINT" OOOOM *>B«ur»»OOiiO" 1 1 D0SUB7200ICLS 

PRINT-A B I E N T O T":GO5UB7200 

PRINT" peut-atra "1 :G0SUB72OO: END 

G0SUB10000:L0CATE 0,0 

PRlNTTA8(9)i" UN PAN DE"! PRINTTAB (9) I - MUR S'EST" 
PRINTTAB(9)I"4'ECRA5E»'"lPRINTTAB(91l"»SUR VOUS'" I 
G0SUB720O:LOCATE O.Ol PRINTTAB(9) t "■: ■' VDUS >>" 
PRINTTAB(9U-<.: ETES ■ V : PRINTTAB (91 I "< BLESSE >■ 
PRINTTAB(9) : - ------. -i !W -k-inT(RND(8i.25»iGOT01430 

FOR I -0T0900I NEXT, RETURN 

G0SUB9920iLOCATE 0.0 

PRINT TAD (9) : "* .POINTS..": PRINTTAB (9) i M Vl» :"IUI 

PR I NT TAB! 9) t "For. 1 " I F : PR 1 NT TAB ( 9) | B ft*», !"|RI : RETURN 

LOCATE 0,0:PRINTTAB(9)1--VOUS AVEZ" "t : PR INT TAB (91 ; ".DECOUVERT. "( 

PRINTTAB(9>l"«LE COFF«E»"( I PRINTTAB (9) 1 " .......#"t lOOSUB 

CLSl0r.-2:PRINT" P«rvl •ndrf-r-voiiB-i PRINT" a SORTIR" 

PRINT" d« c*tt« OM.ur. ""l:W-U'99lGOTai430 
GO5UE.1O00" 

PRINTTAB 191" VOUS ": PR INT TAB (9) " — TOrlBEZ--" 

PR INT TAB (9) "-DANS LES-" I PRINT TAB (9) "OUBLIETTES" 
M-W-INT(RND(o).-0):G0SUB7200iL0CATE 0,0 
PRINTTABTy) *7 LE CHOC *"■! :PRINTTAB(9»"^V0US FAIT'"1 
PR1NTTAB{9)"^ PERDRE ^ ':PR1NTTAB (9) "LA MEMOIRE"! 
FORI-lTD20:N-INT(RND(9l«3>iU-!NT(RND<91.8> I V-INT <RND(91*3) 
IFPX(N.U. V)-1TMENPSL(N, U.V)-0 
NEXT:GOT06fl 

■W-20iB05UBlOOOO) PRINTTAB (9) " .-TRAPPE.." 



r r n r 1 1 



Ton*" 



FRINTTAB<91 - tll SOUS-SOL' 1 ! I PRI NT TAB <9) " 
X-INT<RND<2>«B>:Y=INr (RNDI21. 3)! I- INT (RND (?>••■) 
[Pntl.XiV) rMErJ930iELSEPV. (Z.X, V> -2 :0V.- 1: RETURN 
LOCATE 0.0!F0RI-OTO2lPRINTTA8<9)f "I i 

PRINTTA8C9M ■ "HRETURN 

• F0RI7.-IT04, CIRCLE (A. Bl . IliNEXTlRffTURN 



i oioorai ■' "■' 



BIG MUR 



Tirez a boulets rouges sur un mur. 

Un classique oui, mais ecrit en Tl-BASIC et d'une rapidite 

tres acceptable pour un Basic renomme lent. 

Vous remarquerez la numerotation tres serree et surtout 

les tests conditionnels utilisant un resultat booleen : 

IF B THEN... si B = condition fausse THEN non execute 

si B — — 1 condition vraie THEN execute 
Ceci pour accelerer I'execution. 

La raquette se depiace avec les fleches du clavier. Vous / 
disposezau depart de 5 balles pour abattre les 112 briquesC/ 
du mur. Arriverez-vous a tout eliminer ?... Apres avoir en- 
tre le listing et sa longue liste de DATA qui servent en gran- 
de partie a la presentation le Ti 99/4 A vous souhaite bonne 
chance. 

Michel PICKE 



64 RAIP-H-0 
63 RAIP.r>-C 

67 CALL v. HAP 



74 S-O 
73 B-5 



■- TO 6 

■ . ' 




■ ■ ' 



■ 



- GOSUfi l. - 
4 CALL 

■■■ 

a if r-*fl ■ 

■ 
■ ■ -■.■ 

. H.32,1 

. : ■: . . EN 21 

■ ■ 

r-«ri ■>:, 

: 

■■ ■ 
I ■ 

■ 



■ ■ . . ■ . 
. ■ 

1FI . 

23 CAl I H HM 

II •- J 

■ I 



■ 

. ■ . 
30 OOIO B 

■■ ■ ■■ 

■■.-. 
■■ ■ 



■ . ■ 

■ ■ 
(I 8-8+1 

... . . 

4J OOTU 4 wm 110, 1 n 

■ ' 

■■■ r ■ ' 
■, ,. 

...■■■ 
■■ ■ ■■■.-. 

... ■•, ■ ' ■ ■ : 

■ • ■ ■ ,131, 

N : ' 

, D.R.I 



■ . 
. ■ ■ 

■ . 
■ ■: 
I 



• ■ 



■ 
■ - 
■ 
■ ■ ■ ; 

■ ■ ■ ■ 



. . ■ . 
1. 

■ . . 

■ : 



120 NET I 

121 CALL C0L0R19.7,.H> 

123 LOLL '. 
\?.Z CALL COLOR (1 (.2. 1 I 

124 GOTO 125 

125 G05UB 69 

126 QOSUB 33 
IT' CALL C01 
. 

t«2 ro a 

130 call r 1 

131 NE) 

132 RETURN 

■ . ■ . 

. '■ . 

ITA 494, 
13B DATA 3*C 

: . . 

14f. DATA 440 

. . 
■ 
. : 

: ■■ .. .. ... 

■ 

. ■ ■ 

■ ■ ■ - 

4,! . ■ . ■ 

146 DATA 440, 

. ■ . . 

■ ' 



8S& 



.100,13, 

■■.11.6 

■ . . ■ 12,4, ■.. ... 1.1 .:■.-, . : , IS, 

.,■ ... 

12,9, ■ ■■ . . ,14, 19, . . . . 

.7.11, . 10.10,440.130.11. . ■ ■ . ■ . . . ■ . 



. : 



. 



■ . 
■•. 100, 14, . ' 
1 49 DA 

■■■ . . 

130 DATA 440, 1 

. : : 

: : 
. 

■ . 

■ 

■ ■ . 
■ . 

: . 
: ■ 
■ ■ ■ . : 



.■.■■■..'. ■ . . 1.17,1 

. " . • : ■ ... ,10, . .IOO.II. ,440, 

,14.2. ,100.19.20.34 . . . ■ . . 

. ■ . ,100.1 . ■ . ■ ■■ ■ 

. ■ . . . ■ . ,100,10.23, . ■ 13.27, 

. ■ . ■ . ■ . : . .300*11, . , 10, 

. ■. ■. . 1 ■.!... 

I . I OO , . . . ■ . . . . ■ . 

14. 494.J0O. 






. 



"WO, 9 



4/* 



GRAPHIQUE 



Vous savez dessiner ? Out ? Bravo ! Votre SPECTRUM 
aussi, et en relief ! II sait tout faire ce SPECTRUM ! 

Patrice 8IHAN 

Objet du programme 

Dessmer en relief uneou deux series dedonnees (1 5 maximum) preala- 
blement inlroduites L'ecran est divise en deux parlies, la partie sup6* 
neure sen de commeniaire (eile recoil le titre. le nom de chaque serie 
de donnees, differents resultais eventuellemenl) , la partie inferieure 
est le graphique lui-meme. 

DEROULEMENT DU PROGRAMME ; 

1 ) On entre le commentatre (c'est-a-dire le texte explicatif du graphi- 
que) 



2°) Le nombre de series (1 ou 2) de donnees : la T"- serie est au premier 

plan du graphique en relief 

3') L'mtitule T'» serie ; c'est-a-dire son no 

4 : ) Lmtitule 2' serte idem 

5") Le nombre de donnees 

6 : ) Les donnees ellesmemes 

7) Si necessaire. on peu! corriger les erreurs eventuelles 

8-) Dessiti graphique. 




acne; eai tiu (J'kniiki 

SPECTRUM 



3035 REM INTROOUCT XOM WE3 DONMEt 

9B3S REM 
3037 REM 

304.0 PRINT "ENTREZ 
E" : INPUT PI 
H05O PRINT PRINT 

t-iBRE OE SERIES: 1--2 
9B31 PRINT PRINT 

ITULE 1ERE SERIE" 
3053 IF Nl=2 THEN 
"ENTREZ L- INTITULE 
INPUT C$ 

9Q60 PRINT : PRINT 
1BRE DE DONNEES" 
3070 DIH X<N5 DIM 

PRINT •ENTREZ LES 



LE COMMENTRir;' 

'ENTREZ LE NO 

INPUT Nl 
"ENTREZ L'lNT 
INPUT 3* 
>RINT PRINT 
2EHE SERIE" ■ 

'•ENTse; LE NO 
INPUT N 

PR INT : 



9130 IF N2 = 2 THEN GO TO 920 

3133 REM 

9134. REM 

■3 135JREM CORRECTION D£S ERR 

3135 REM 

3137 REM 

314-0 PRINT "ENTREZ LE 
E 1X2": INPUT N3 

J1SB PRINT 



DE 3ERI 



PRINT 

ice ■■ INPUT N4- 

9180 PRINT PRINT 

LEUR": INPUT N5 

— N3=l THEN LET 

N3=2 THEN LET 



"ENTREZ Lfl UR 



9170 

9130 IF 

9131 CLS 

9132 FOR 



1 = 1 TO 



9030 IF Nl=2 THEN 

^og© FOR 1-1 TO N 

RINT I; '• " , X (I) : 

309S GO TO 9120 

9100 REM 

310S REM 

3107 REM 

9110 PRINT SS . : I 
NT C* 



GO TO 9110 
INPUT X f I 

icxt i 



=2 THEN PR I 



IIS FOR 
RINT " 

INT Y . _ . 
3120 PRIN 



, X ;n 



NEXT I 

PRINT 
3/SUrTE PROGRAMME" 



-3190 GO TO 912Q 

'3195 REM 

3196 REM 

520Q REM RECHERCHE PLUS 

9205 REM 

■3 207 REM 

320 6 REM 

-J210 LET Z = XI 

J215 FOR 1=2 

N GO TO 9230 

'3220 LET 2 = X i 

•L.'_';3S NEXT I 

■-'S3E. REM 

3S36 REM 

9237 REM 



IF ZiXlIi THE 



"*24-B REM aEChERCHE PLUS CJDRND V 


938© FOR E"YiOtO TO ' ■ C . 2 STEP - 


=»2A3 REM 


1 PLOT RtD,E ORfl'J D,0 


324.4 REM 


3590 FOR E=0*X TO D 5TEP -1 PLrv 


'S4S REM 


T R+E>*D,E DRRJ C , i' MET E 


3250 LET 'J=Y ( It 


9591 PRINT (TT INT l3P-(Y/8ll,e," 


3260 FOR 1:2 TO N IF V J V ' I ' THE 




11 OO TO 9270 


9S92 PRINT RT INT Ot'-IY/3(l ,(,V 


5365 LET u = ¥ < I) 


CI> 


J270 NEXT I 


3593 PRINT RT INT (Sa- (X/3t t ,8; - 


9276 PEH 




3290 IF \>'Z THEN LET l) = Z 


3594 PRINT RT INT f23- [X/01 1 , 0, X 


3285 IF Z=U THEN LET U=Z 


I I) 


9290 IF UtZ THEN LET U = \) 


3595 RETURN 


9295 LET U=U*2 


9600 REM DE551II 31 JOY 


3296 REM 


3601 REM 


3397 REM 


J602 REM 


9296 REM 


9B03 REH 


9300 REM CRLCULS DIUER5 


=6 10 PLOT R .Y* 1 D*3I 


9305 REM 


3612 RESTORE 9991 


9306 REM 


3515 FOR G=l TO 12 


931© REM SOMME 


9620 REOD Z1.Z2; [PfiJ Z 1 , Z2 


9315 REH 


3642 PRINT RT IKT I2->- i.</S) 1 ,0; - 


3320 LET T1=0: LET TS-B; LET Hl= 


3643 PRINT RT INT (2* - '. X/B > > , ; X 






9325 FOR 1 = 1 TO N LET T 1 =T 1 *X '. I 


•J644 PF--INT p-r XHT (J*-(Y/B)i ,«; " 


• LET T2=T2*Y'H NEXT I 




9327 REM 


■9645 PRINT RT INT ( 2*- rY /S) > , 9>; Y 


3 338 REM 




932Q>REM 


9646 NEXT C- 


9330 REM MOYENNE 


9647 REM 


3333 REM 


9643 REM 


9335 REM 


9649 REM 


9340 LET HlsTl/M: LET H2=T2/H 


9650JPLOT «*D,Y*ir>»3> 


334.6 REM 


9652 LET Y3»Y+<D»3>: LET X3>X*tD 


9350 REH IMPRE55ION 


*a> 


i3SB REM 


9633 LET P=0: FOR E =Y3 TO X3 5TC 


3356 REM 


P -1: ORRU 1,-1: NEXT E 


9361 PRINT " 1/IMPRESEpION DE Lfi S 


3665 REM COLORIRGE 


OMHE ET HOY 2/NON" 


9666 REM 


9362 INPUT N7'. IF 147 = 1 THEN GO T 


9670 FOR E=D+X TO O STEP -1; PLO 


9370 


T R+D+D,E. DRflU D,0: NEXT E 


9363 CLS ■ PRINT fi«: GO TO 9332 


9630 RETURN 


9370 CLS PRINT RS: PRINT "t/50 


37O0 REM DESSIN CADRE 


MME = ";T1, ,, MOY = "'; HI 


9710 PLOT 32,0: DRP.U 223,0. ORRU 


9380 PRINT ■■2^SOMME = "iT2, "MOY«" ; 


0,SS: DRflU -223,0: DRRU 0,-88 


MS 


9790 STOP 


93S2 PRINT PRINT "1' '",'0*: IF 


'380O REM DESSIH UNE SERIE 


Nl=2 THEN PRINT "3/ ";Ct 


9B05 RESTORE 9992 


9335 IF Nl=l THEN RESTORE 9992 


9310 LET 1=0: LET D=225/-(N»3> 


3390>IF Nl=l THEN GO TO 9B00 


9815 LET D=INT O 


9400 REH DESSIN DEUX SERIES 


9B20 FOR R=32 TO 2SS-D STEP D»3 


9405 REM 


9625 LET I-I+l. IF I>N THEN GO T 


9406 REM 


O 9B95 


9407 REM 


9S30 LET X=B7*XfIJ/U 


94.10 LET 1=0: LET D=225V(N*4) 


9S3S IF ((I--2J-INT (1/2) ) =0 THEN 


3415 LET D=INT D 


PRINT RT 20- ( IX+D) /3> .0; X til 


9420 FOR R=32 TO 2S5-D STEP D*4- 


9840 PLOT fl+D,D«D 


942S LET 1 = 1 + 1: IF I :. N THEN GO T 


9342 RESTORE 9992 


O 970O 


934-5 FOR G = l TO 6 


■3430 LET X=37*X{IJ^U 


9Q50 RERD XI, X2: DRRU X1,XS 


943S LET Y:37*Y(IJ/U 


9355 NEXT G 


9440 IF YCIJ>=X(I) THEN GO SUB 9 


98S7 PRINT RT al,fl/B;l 


S00 


9360 FOR C=X.O»E> TO D + D STEP -J- 


94-45 IF Xj-T THEN RESTORE 9991 


PLOT R+D.E: DRRU D , 4? NEXT E 


94.50 IF X(D)YII) THEN GO SUB 96 


9370 NEXT fi 


00 


9395 PLOT 32, O. DRRU 223,0: DRflU 
0,33+D+D: DRRU -223,0. DRRU O,- 


94.60 PRINT RT 21,H/8;I 


94.70 NEXT R: GO TO 9700 


33-D-D 


9500 REM DESSIN SI Y>X 


3900 STOP 


9505 REM 


9990 DRTR , -Y , D »2 , -C< *2 , -D , D ,0 ,'t 


9506 REM 


.-D,D,D,0.D,-D,O.-<Y-Vi .D.-O.-D, 


9507 >REM 


D , -D.Q ,0 , -D 


9S10 PLOT R,Y+(D*3J 


3991 DRTR O , , -O . ^ , D . -D . -C , D , , - 


9512 RESTORE 


9515 FOR G=l TO 12 


a , -D .D , -D ,D 


9520 READ Y1,Y2: DRR'.J Yl.YS 


9992) DRTR -D,D,0,X,D,O,D,-D,-O,O 


3555 NEXT G 




9578 REH COLORIRGE 




9571 REM 




9572 REM 





MIAM-MIAM 



II vous faut devorer le plus rapidement possible ces pastil- 
les bleueseparpillees dans ce fichu labyrinthe qui n'arrete 
pas de se modifier ! Et depechez-vous, car si vous depas- 
sez le temps imparti, I'ordinateur ne sera pas tendre avec 
vous ! (avec manettes de Jeu). 

Christian ALLAIN 







RALLYE 



pC I2tf 



Source queiconque, MEM : 1 

Le but de ce jeu est de parcourir au volant d'une voiture 
une distance de 20 km avec 6 virages dans lesquels la Vi- 
tesse est limitee. Si on depasse cette vitesse on derape et 
si on la depasse beaucoup trop, on "crash" I Lorsqu'on a 
parcouru les 20 km sans "crash" TOP donne la moyenne 
en km. A chaque kilometre on donne une acceleration 
(ace;?) et un treinage (frein?) entre et 5. LOP donne la 
position et la vitesse. 

Au debut de la partie on a le choix entre deux rapidites de 
jeu, la puissance et la nervosite de la voiture sont donnes 
aleatoirement. 

LOP affiche est la position des virages et les vitesses a ne 
pas depasser dans ces virages. Au casou deux virages au- 
raient la meme position, la derniere limite de vitesse affi- 
chee compte pour ce virage. 

Pierre Yves DESCAMPS 

Mode d'emploi : 

II dispose de deux modes . 

1 Un rno'ir- tout Mrnpl<: d<; tcl'jcrtjn ,;vc-r, Ur. foii':.ti'jti", '.uiv.-tnirr. 

- hull touches de deplacement 

- quatre touches de changemen! d'epaisseur du Irail (crayon ou 
gomme) 

- trofs autre touches qui permettent - d'elfacer (gomme) d'ecrire 
(crayon) ou simplement de passer (leve-crayon). 



2. En mod e g enerateur <\<: caracteraa 

Ce mode permet, a partir d'un dessin cree avec le telecran, de redefinir 
le nombre de caracleres necessatres a sa reconstilution (et ceci en 
grandeur nature). 

Par exemple un personnage pourra s'ecrire ABC DEF GHI les neuf pre- 
mieres lettrGs 6tant redefinies 




10:"-P.0LLY-"! 
CLE»R ipRIHT 
" -RALLY- ": 
PRINT " 

15: INPUT "RfiRID 
ITE <1>2) ?" 
IR 

201 INPUT "SOURC 
E ? "IS:S=JS 
-INT (IS)' 
COSUB 900: N=° 
INT <S*irj*R) 
+IIG0SUB 9C0 
:P=INT (S»10 
)*I0 

25: FOR B=27T0 4 
6:A<B;=50Q: 
NEXT B:PRIIIT 
"VIRAGES: " 



30:F0R 1'ITO 6: 
GOSUB 900: U= 
INT <S*20)*2 
7: GOSUB 900: 
fi(IJ) = INT (S* 
200)+50iU»U- 
26 

40:PRINT "KM "! 
Mi"."i(KU>!" 
K1VH" 

50:NEXT ISPRINT 
"DEPORT 

60: FOR C=27T0 4 

6:D=C-26 
70: PRINT "KM "! 

D 
30: INPUT "OCC. 

?" ifl: INPUT " 

FREIN ^"!F 



90: IF fl>5G0T0 8 


I00:IF F>5G0T0 8 


110: IF F<0G0T0 8 


120: IF fi=0LET V" 

V-5 
150:V»INT <V+<H* 

fl)*<P^<V*l)) 

J 
160:V=V-<5F) 
165: IF V<0LET V« 


170:PRINT "VITES 

SE "tVf'KM^H 

180: IF V>fl<C> 

GOTO 400 
190:M=M+V 



200: NEXT C 

210: BEEP 3:M=M'2 
0:PRINT "fl R 
RIVE E"l 
PRINT "M0YEN 
NE 0U KM:": 
PRINT m; - KM 
•H":G0T0 10 

400: IF V<8<C>+20 
PRINT "DERAP 
«GE":LET V=V 
-50: GOTO 190 

4I0:BEEP 5:PRINT 
"C R « S 
H":PRINT "C 
NAUFFAPD": 
GOTO 10 

900:S=<S*997>- 
INT <S*997>: 
RETURN ■ 



CREATION DE DESSINS 



Ce programme permet de dessiner une figure quelcon- 
que sur t'ecran, de la sauvegarder dans un fichier et de 
creer le programme basic qui la reproduira. 
Par exemplece logiciel pourra servira faire une presenta- 
tion de jeu. 

Jean-Michel TABESSE 



En voici les commandes : 

- Les 4 (leches pour dinger le curseur 

- ENTER pour allumer un point a I'emplacement du curseur. 

- Pour avancer et dessiner simultanement : 
Presser a la fois ENTER et la direction desiree. 

- Pour allumer de 2 a9 points a la fois.presser une des touches de2a9 
suivi de N-NORD. S-SUD. E-EST, O-OUEST C-ERREUR. 

- D deplacement du dessin : - N - NORD 



-S-SUD 
-E-EST 
- - OUEST 

- E : eflacement et annulation du dessin 

- F sauvegarde du dessin sur disquette et creation du programme 
BASIC correspondant. 

- I : inversion video. 

- P - positionne le curseur a i'endroit desire en indiquant les coordon- 
nees X et Y 

- T ; trace d'une droite a partir d'un point de depart et d'arrivee. 

- X ; trace d'une droite horizontals a remplacement du curseur : il suffit 
de donner la colonne de depart puis d'arrivee. 

- Y ; trace d'une droite verticale a remplacement du curseur ; il suffit de 
donner la ligne de depart puis d'arrivee. 

- ATTENTION : les deux dernieres lignesde I'ecran sent reservees pour 
les commentaires. 

A chaque deplacement, I'ordinateur vous donne la position du curseur 



(colonne. lign ej 

Au cas oli vous presseriez la louche BREAK d vous faudra repondre. a (a 

question : 

CONFIRMATION DU BREAK : OUt CXJ NON 

si vous pressez O. vous sorttrez du programme Par contre si vous re- 

pondez N, vous pourrez continue* votre dessin. 

Ce programme aura un meilleur rendemenl comprfe. seutement. dans 

ce cas il faudra introduce une boucle de ralentissement en bgne 420. 

qui sera plus ou moins grande survant la vttesse du compilateur 

Exemple : avec uncompilateurquiaunrendement de 20 la Bgne 420 

deviendra ; 

420 FORI-lTO300'NEXTl:Z-PEEK( 14400) 

CONRGURAT10N : 

TRS-80 M1 48K 2 DRIVES et une IMPRIMANTE Le programme foncton- 

ne sur TRS-80 + disquette(s) qui aura un DOS avec la commande DO 



PRESENTATION . 



i c«c» -spew. n* CLEWieeea def:nta-2'Dimt<3900>'Cls 

I PR;nTCHRt<23><PRINT.PRINT PRINT i PRINT .PRINT PRINT" 

:r- 5 £ DESSINS" 

' PRIKTteK' "V0ULE2-V0U9 LES INSTRUCTIONS t'l 

! AJ-1NVEY*. IFA*-"N"THENCLS G0TO1 1 90ELSEIFA<O"O"TH£N139 



C R E A T I N">P 



EXPLICATIONS . 



• PftlHT'EHTER 

' F = ;r. -■■;.;>. 4, 3. 6. 7. 8, 9 

*. PPIN'" 
| PR1MT 



' CLS PRI.NTIJ2! ■ "COHMPNDCS 0£ COKTROLE" 'PRINT PRINT 

I P»lNTO*W<91 >♦" -♦CHR«92>*- " ♦CH»*< 93 >* " "♦CNS*< 94 >*" - DEPLACE.*! 

■ :■. :■.-:.-■ 

- ALLUMACE D'UN POINT" 

- ALLUMACE DE N POINTS DRHS LA DIRECTION* 
DESIREE ■ NORD . EST . SUD , OUEST"- 

- TRACE D'UNE DROITS H0RI20NTALE" 

- TRACE D'UNE DROITE VERTICALS" 

( RRINT"P - POSITIONNEKENT DU CUT.-3EUR A LA POSITION K,Y*J 

J PRINT-E . - EFFACEWENT DE L'ECRAN" 

■ ==•:•--?=■?.?■ "PRESSES LNE T^'jC^E °C'JR CCNTINUER-i 

• :-:■•''£■ t* "- f-25?~LZ±ZL3 PRINT921 ."COMMANDES DE COKTROLE" ■ PRINT • PRINT 
. PPIHT-O - DEPLACEMENT DE L'ECRP-M" 

• -=:•-- - SAUVEGARDE ET CREATION DU PROGRAMME" 
' PRINT-' ■ - INVERSION VIDEO" 

I PRINT"- - TRACE UN DROITE A PRRTIR DE N' IMPORTS" 

| »;nT- DUEL POINT DE DEPART ET D'PRRIVEE" 

. pftlHT PRINT PRINT -PRINT' ..=.— i -=..-.-> CREATION D'W DESSIN 



36? PRIM" 

379 GOT012W 

j?-> CL8 :-'■? Y-8 D*9 P*9 



LECTURE D'UN DESSIN- 



TEST D'J CLAVIER . 



? 2-PEEJt' :449?> 

i ifZ"8ak>y>--.tke:hy>- i cOTOSSe 

i IFZ-lSftHD'^^aTHENYt-I 0)70633 

» :c2*?20-tf>X>-lTHENXI — I G0T063B 

3 :r2-64Ai;DX'»126THENXl-I GCT0539 

? :F~>!T*E:.T>-! GO3V9670 

) [F2>»HDV>»lTHENSETtX,Y) Y-Y-I G0T0630 

"■ [FZ-17T* : -"«3THENSET'X.YJY-Y*1 'C0T0639 

■ ?"'jETCX,Y)X-X-I 'COTosse 
) IF2-6?AHT)/''.125THENSET'y.YVX'=X*l 'G0T0638 
) tPZ>4THEH1960 

!> A*-tM£Y8- IFA«-"F"THEN9ee 
t lFPt*-=*TH£M71Q 

i :fp*=-d"thdusi0 

• :=P-I>"P"THEJ<769 

! IFA*»"T"THEUI919 

> :=-AI«"X'THEN:363EL5EIFPt---f-THEN1429 

' :F'.'AL-At>>0RNO'/flL< AJKlBTHENH»VPLrA*>-I ■ C0TQ939 

I G0T0428 



HLL'JMAGE D'UN POINT . 



-- - : ■ -oelsereset'X.y) 
EOS JB6*fl COTO204B 
y=y*yi X-K+Xl>Yl««'Xl^iSeTCX.Y>'RrnjRK 



EFFPCErEHT DE L'ECRAN , 



7*fl ' POSITIONNEMENT p'J CL'RSEL'f . 



J PCS£T-'X.V)'PRIMTiMS*6, "POSITION DE X, Vj IHPUTX3.Y3 

■ IF;T'TOPX3>:27THEN79eEL?EIF-)T80RY3>4JTMEM799 

■ '-■.- X-KS SET'X,Y)D-I GOT01498 
• 5ET< ' " ' C? T 0132a 



DESSIN DE N POINT DPNS DIREC. DESIPEE . 




1149 = J Pr , IT?g?6. 'I - CONTIWJER CE DESSIN 2 - RET<>.«NER »J MCmj" . 

113? A«.!:nrEYt' IFA«-":-TH£-*=.fl SET'? ?> GCT0:4S?£l?E r"o*--2-"n^v; ;??EL?E: IT? 

use ■ 

H7? ' MENU 

1190 ' 

119? PP!rr-29ie.-i - CREATION D'UN CCSS'N- ■PRINTf974 , "2 - LCCTURG D-'.-s DESSIn* 

1290 WWPL' I?iy*EY* ^."TOSS?, 1199' GOTO 1208 

121? ' 

122? ■ CREATION D'J PUCGRP"^ 9P?IC 

123? ' 

12 4f. A»="BASIC 95--19 C_? C'_EP»3*99 DIM p/-*STR«r»>- )■ C*-"29 FORI-!TO-*STRt<P 

)*-pc0DA!ri NEXT-^E#-"39 FORI-lT0-*STR*fp>*"STEPl"PC»tE«<I5.P<I*l>'NEXT-.p«--D«T 

fi« H.-4C COTO 49" 

123? CLS PRINTS?. "ON CO*"*E'i-E LA CREATION DU PROGRflfnE gASIC"" 

126? LINE:»e'.T-NnM yj p?:Qocri-E '-,F1 C|rr,.-, JC _^ nBe-s-Q.. . ,e f c*;s~#i o* M>r 

#1 B«-PPINT«1.CJ PR1NT»1,E»'PRINT»1. I* 

127? J*<HR*34) K»»'KIU_"+J»*F« 

12«? Y=INT' s> -2? > R-P *Yt2? 'L-3998 >D«e 

1199 FCPI = !TOY L»L*ie'POR.J»lT028'D"O*I-(;*- , ;«*STRf*"DlV*.* M6XT PH.ENCQ*>-1 *•- 

LEFTf- Ct . c ■* R*=STR*' L )*D**G* PPINT»1 . R« ■ O*- - " ' NEXT 

13P? Of = -' c«pi»iti:R P*-P*.STR*fT(D*I)>*- " N£YT A»»PTRt.-'L*I9»*&»4« FHfMCftt) 

■AJ=LE=Tr-=r.=-; •> PRlHTtl.Rt'PfllKTtl.Ki A<--Cnp-*.'«*"C"*PO!NT«i .»» af--;- = - pft] 

KT«;. A» CL0SE»1 

I'M? "CL C PPIHTCV*tff23i »PINT— PT'lTENANT T A"E? " 6 RINT"CMp-?0 * . LEFT*' c*,'t_E>*:F 

♦ >-3>) 

I32Q R*-"M --LEFTt(F*.CLEN(Ff >-4 ) > CC'A* 

133? ' 

134? • TRACE D'UNE DROITS M0RI20NTALE 

1330 ' 

136P PR I MT9S96- "COLONNE DE PE^RT . X ", INP'.TXS PRINTU995 -ChLCNNE 0'PRRI"EE 

X ". IMP0TX9 IFX8>X9THENP9— 1ELSCR9-1 

13-? :^"*".C r, "'?'::CRX9>!2f'?RX9n26THEN132e 

13?? F0RI-XBT0X9ST5PP3 S^tc I. Y> NEXT^x-I G0T014P^ 

1399 * 

1490 ' TRACE D'UNE DROITE VERTICALE 

1419 ' 

[429 PRIHTW95. •LIGNE DE DEPART . y-j'IN«jTY8 PRIti'^96 "LTCne D'PRR:"EE ' Y » ( 

.,. c ..- . ? . C v r v..- ? * |J EMP?'-1ELSEP9-1 
it-- IFY8<10RY9<10RYe>410(>Y9>4lTHEN132e 
144? FORI =V3TC-'9STEPP9 SET^ X. I > ' NEX* > Y- 1 - G0TO1 49? 
1439 • 

146? ' EFFACEMENT DES 2 DEPNIERES LIG^E? 

1479 ' 

149? PR!NT«??< STPINGtt 127.321; <:OT0420 

1490 ' 

13P? ' CCMMANDE IRREALISASLE 

151? ' 

1329 pp!NTi»3?6- --■—■•"■ — «-■•"■-> COMMO'OE IMPOSSIBLE (■ — -••—■■""-*-«••• • 

iF0PI«lTn39? "EXT G0T01490 

1330 ' 

1349 ' INVERSION VIDEO 

1359 ' 

136? F"Rr^-^-01?233 A-.PEE>-' I ■> ■ IFA-32THENA-I29 

,375 c-.r- '"A-I?l)t-1 V129 5HEXTGOTO420 



• P°;''-™3?<;.-DIRECr»'MH i *N*. '£'. '8 

• SS'INVEYf ' rFS«-'C"T»EN949ELSEIFS«---TMEN959 
■ :F=f--N-ANDY-H<9THENG0T01329 

! IFSf>-0-AHDX-H-l'3THENG0T0I329 

. :r?T , ^■ 1 pndy*H-1>42TmEHG0T01329 

! IFS*--E-RNDX*H*1>]25THENG0T01329 

. [F8«-*N > 'nCNFORl*:TOH<fleT<XfY-t?<NEXr>Y*r-I'COT0948 

. rP^l-"0"-MENF0P: = ITOM -SEKX-I.YJ-MEXT'X-X-I COTO940 

i IFSfS-'HENFOPI-lTCiM 8«T<X.Y*I>'NEXT'Y-Y*I 00TO949 

. [F5J--E -"E'iFCOr-lTOHSETtX-I.YVNEXT X-X'I GOT0949 

I COT093? 

I GOTO 1400 



OU C POUR EPPEUR ' 



Tf& 



80 



969 ' SWjviGAR&E D<J DESSIN DANS FtCMIER 

970 ' 

?C? RE8ET(K.y) PRINTIJ996. "Confirmation DE S^/'E GARDE ' '0' VJ '"* T"j 

?3S Af-INKEYf IFA*-""THEM939ELSEIFAf>"O'THENCCTOi490 

!??? F0fr-13?61 T 01S233 A-PEEi" I > IFA.i3BOSR-32Ti^NCOT0ieM 

!9:9 P*P*1 T(P).I P-P*l TC'>-A 

192? "Ei-TI 

I??? VR:-'T*96?.-NOM DtJ FICHtEP '. INPUTtH'INPl-iT-DRIVE '(D 

]P4P IFC>»!THENNJ»Hf*"' 1" 

:?*'? Cl^ ?PEN"0".l .Nl PPINT«1,PF0R>1T0P PRINTtl .T. I VHEXTI CLOSE*! 

iau C0T0I249 

j|o| I LECTURE D'UN FICMIEP 

nU ct« »»:vr««e.-Non r>j fichier -. i»«»uTNf : 

1110 IFC-lTHENIIt-N**" 1 1" 

1120 CLfl OPEti'I-,l,NtINPUT«l.PFORI-IT0P T"PU1 
,130 rno-,;T':.PTTEP2 POYET' I y. T' 1*1 )'N£XT 



■°<J1 "DRIVE "iD 
,. TCI J NEXTJ ' 



Ii8-'. 



. . DEPLACEMENT Dti ttlid 

I6PP ' 

jcio PPl-i-5'?f ."DIOCCTIC*' D'.i DE B LA:EMENT -N- -E' ■ 'S* '0' C-ERREUR". 

[6M Rt-1NKEY> in»«"M"nCHI«0El5ElFTW""E'THDI17ieCL8EIFM- , 9"THENI7Seei.«inW" 

-C -- J E'rPlPCLCEIFA*-"C"THE'M490FLSE1629 

[«30 ' 

[640 ' W "ORD 

1639 ' 

,«f* r:r;^:-:C9T01342? T( t-I53»>-PEEK< I >'N«XT 

SF79 F0P!»f"n:2 F0RJ-13'l?4.(I*64>T0t3497.'I-64) PO*-E J-64,PEEf .' > NEXT J, I FDRI-IT 

Of j P0KE1619I+] Tr I vhextc0TCI4S0 

1609 ' 

1FOP • A L'EST 

1799 " 

[Tie FWI-BT013 T(I*I )-PEE>/<13423*M-64>)NEXT 

,,-„ rno;r-^Tn]fTEP-I F0RJHTTO13 PO"Ef 13?69*I" WS4»*rKO«15399*!« J««41) HEKTJ 

- FCWI-0T013 POCE'l3?60*ri*64>>,T<I*lVNEXT GOTO'400 
17?? ' 

17« A L'OUEST 

1739 ' 

■ 7 frt rc":'ifI?2T0!6233'T'l-K19I>-PEEi"'I) NEXT 

I7?(, coPT»i«Tn-,2 rni>j. 16 i29.':-?4>'niS!91- f 1*64' POVFJ.F4. PEE"' J' NKXTJ. I *F0»I«1T 

rV4 PQKET3359+I,T<I>'HEXT GOTO 1400 

1780 ' 

179? ' '"J S'.-O 

1900 ' 

,g Ifl F0RI-0T013 T<I*.>*PEEt«l53«»KIt«4>J NEXT 

ie--t rnoi = iTr>«^.FnRj.9Tfll3 POVE' 13339*I*r -'*'* ' v °EEt" 13??p* I ' ' ."^4 " «X1 1.1 FOB 

I^*T(J13 P0KE< 13423*( t»64)>.Tn*l >■ NEXT GOTO! 499 

1838 ■ 

1 040 ' PREAX 

19-3 ' 

IBCO pp rNT^9?e." COMF1 PVAT1CN D'J PREAX i 0>JI 0".' NON" . 

1070 Af-'^EY*' !FAt-"O ,, THENENDEL5EtFAt-*M-THEN149?EL«!E1970 

1^0? - 

599? • TRACER D'UNE LtGNE 

191? RE8ETCX.Y) PPIHT5896- 1 InpijT'COORDONNEES DU POINT DE DEPART -,XA,VA pRlMTue 

98,1 INPUT" C00RD0NNEE9 DU POI^fT D'ARRIVEE "iKB YB' IFYP'TAovp' | ibvs/ inRYp'IP 

pyfi-.:2^CP:-P':-?fC=YA>.10f?RYP'4?THSN132fl 

1928 "-' a Y=YA'EET'y,Y)IFXA'yeTMENYi.iELSEYI— 1 

193? IFYA'YBTHENYI-IELSEYI— I 

, oaf DX-P9S< vo-XB 1 DY-APST YA-YB 1 ■ IFDX>DYELSE1999 

1959 C"-DY'2 FORI-lTOOXX-X-Xt'CU-CU^DY'IFCUl-DXELSEl??© 

1960 CU-CU-DV Y-Y*YI 

19?? BCTCX v> NEXTt'GOTO1400 

[990 r.:-r.',--3 Fnpi-iTODY'Y-Y-YI C'J-CU*DX ■ IFCU'*-DYEL9E2990 

■0>OY')v«X*XI 
2099 ?ET<Y V) NEXTI COTO1409 
2010 ' 

2929 ' POSITION DU CURSOR 

2039 ' 

2949 PB>tHT???S- "VOUS ETES A LA COLONNE". V *LIGHt" Y. r;OTO420 ■ 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 

PRENOM : 

ADRESSE: 

REGLEMENT JOINT : □ CHEQUE □ CCP 



MATERIEL UTILISE : 
CONSOLE : 
PERIPHERIQUES : 



DOMINOS 



Redecouvrez grace a votre APPLE et a ce programme les 
joies du jeu de dominos. 

Patrice RABBY 

LA PPLE tire au sort 9 dominos pour tejoueurquil affiche en haute reso- 
lution It the ensuite 9 dominos pour lui qu'il fait voir face cachee. 
Uordinateur decide qui va commencer en choisissant qui a le double le 
plus fort (methode normande) 

Ensuite chacunjoue a tourderdle en selec tionnan tie domino avec les 
fteches. ensuite lordmateur vous demande a droite ou a gauche (D ou 
G) suivant ('emplacement choisi. En cas d'erreur I'APPLE vous fait re- 
marquer que vous tnchez 

Si vous etes bloque. appuyez sur 'ESC pour passer votre tour. 
En fin de partie, I'APPLE compte les points de chacun des joueurs. Uor- 
dinateur retourne ses dominos s'il lui en reste. 
Chaque manche comprend 5 Parties. 
Vous avez compns ? Alors bon amusement. 

Du point de vue programme, le plus dur est ia gestion de 1'ecran ce qui 
srgnifie la longueur du programme. Le fait qu'un domino puisseet re ho- 
rizontal ou vertical a ete un vrai casse-tete surtout si Ton ne veut pas (ai- 
re appel aux tables de formes. De plus mon programme se trouvecoin- 
ce entre S800et S2000 (ia page HGR). Quelques octets de plus a la fin 
du programme seraient tronques de quelques hgnes. 
Ceci exptique qu'il n'y ait pas d'exphcations ni de REM importantsdans 
le programme. Lordmateur reflechit avant de jouer. alors attention. 




• Al M'.tJL DR- Ol 


:■':■= .» ■ ■ 


:J 


X(A,2) = 

M ■ 1 -"• 
FOF n ■ 1 


: GOTO 


880 




TO 9: 


F OXtA.I 


„ 


DD''.( I. I 1 THEN EI 


1 ■ 


j • 


Hi "COLOR 


0: GOSUB 770:0X<A 


.2) * 1: GOTO 1030 




ME* I f 








n -:-. 






HPLOT X.V 


TO I • 


20,V TO 






to «.r 


• 12 TO «.Y 


i FETufrri 








MPLOT I.V 




I2.V TO 


* 


12. Y • 22 




» 22 TO X.Y 


: RETURN 








FOR K - 


TO 22: 


HPLOT EX 




O * K TO EX * 12 


130 * K: 


NEXT 


Kl RETURN 








RETURN 








HPLOT X * 


S.Y * 6; RETURN 






2.Y * 2: HPLOT 




e,v * ioi 


RETURN 






GOSUB 790 


GO SUB 


BOO: RETURN 


MPLOT X • 


2,V * 21 HPLOT 


. 


2,Y * 10: 


MPLOT 


* B.Y * 


Z: 


MPLOT X 


s.v * 


lO: RETURN 



I200 tf ITS ■-. : 



TVSN goto : 



1240 /TAB a U crinT " 

1230 IF P* • -S- THEN X - C 
32:Y • C<2) : GOTO 1280 

1260 IF P* • -D" THEM ■ = E 
12:Y - CI41: GOTO 1260 

1270 GOTO 1230 

1290 REM TEST SI POSSIBLE 

1290 GOSUB 1340:E<3> - GiEt' 



■ 
MCOLQP- 0:E* - i • 
: GOSUB 7701 HCOLC* 
30i« * E*: «JSU» *60ll 
It ON D GOSUB 7B0.79O.a0O.91 

.-..■. : - . : 

S GOSUB ?e».790.90O.810.B2O. 

! . I 

po - po • r • 

NEXT A 

PRINT -1L VOUS RESTE -IPJ1- 

POINTS.ET HOI "IPO 

FOR M - I TO 2O0O1 

■ IM6N PRINT -J"* 

i gagne... 'iso ■ so - 

I: GOTO 1400 
IF PO > PJ THEN PRINT "BRA 
VOUS AVE 2 GAGNE ":5 



■ SJ ■ 



Ii I 



DR EC 



13 



THEN GOTO 



GOSUB 790s GOSUB 320: 



pplfitt 



; + B.i 



LOME Ml 24376 

DIM ND*(2Bl.DD7.<2B.2),07.(9,2) 

,jxe».2i 

FOR T - 1 TO 28: READ ND*IT>: 

NEXT T 
FOR T - I TO 28iDD7.tT.2i - Ol 

NEXT T 
FOR T - 1 TO 9:JX<T.2) - 0:OX 

IT, 21 - O: NEXT T 
DOTA AA.AB.aC.AO.AE.AF.AG.BB. 
BC,80.8E.BF.8G,CC,CD,CE.CF.C 
G.DD.DE.DF.DS.EE.EF,EG.fF.F8 
,QB 
• X - 10sY - 130: HCOLOR- 3: HOME 
:C1 - 10: HGR |C<I1 - 149:C( 
2> - 5:C(31 - 141:C(4> - 5 
> FG - O.-FD » 0:QG - O:0D - OsP 
J » 0:P0 » 0:N6 - 0:ND - 0:J 
B - 0*0B ■ O: GOTO 360 

■ IFPI ' "8" AND NG > B THEN 

GOSUB 2090: GOTO 280 
I IF P» > "0" AND ND > 4 THEN 

GOSUB 22001 GOTO 2BO 
i IF PI' "D" AND ND > 1 THEN 

GOSUB I960: GOTO 2SO 
i IF P* ' -G" AND NG ' 4 THEN 

GOSUB 19SO: GOTO 280 
I ]F D • G AND P* » -D" THEN X 



i IF P» ■ "D* THEN ND - ND * I | 

:C(3) - X 
i RETURN ( 

I REM DEBUT 

r A - 1: FOR N - 1 TO 9 . 

i H - INT < RND (1) * 28) * ll 

IF DDX<H.2> - 1 THEN 380 
' DDVMH.Ii - H:DDZ<H,2) - ll NEXT i 

i FDR N - 1 TO 9 

I H - INT < RND (1! * 281 * 1 

i IF DD7.(H,2> - 1 OR DD7.(H,2) - 

2 THEN 410 
i DDX<H,1) - H:DDX'H,2) - 2i NEXT 



RETURN 

DN T GOSUB 780, 790, BOO, 310,8 
20.830.B4O: RETURN 
REM L-APPLE JOUE 
B = 0: FDR A = 1 TO 9: IF JX< 
A, 21 - 1 THEN B - B * t 
NEXT A: IF B - 9 THEN PJ = - 
1: GOTO 1810 
VTAB 22: PRINT "JE REFLECHIS 



920 GOSUB 1B40:E(3) - 5:E<< 



F E<3> - E<i: 
OR E(3> - E 

THEN 9&0 

GOTO 1340 



REM OFFICHAGE 

FOR N = 1 TO 28 

IF D0X'N,2> < > 1 THEN NEXT 



SOO 



IF D ' 



G AND R» ■ 



"G- THEN 1 



ON GOSUB 780.790,9! 

. ■ ■■ . - 
IF D • S THEN y - V • 

x - « - 10 

ON G GOSUB 7BO, 790. 8' 
20.830.B40 

IF O - 8 THEN Y = Y - 

IF B • D AND P* - "D' 

= ' ■ I 

IF D - S AND P« - -S - 

IF P« - "6" AND F6 ' 

C<2i - Y 

IF PI ■ "8" AND OG - 

C !2J - - 

IF P« - -D" AND FD • 

CM - ' 

IF p» - -D 

C<41 - / 

IF f* ■ -a- arm CG • 

■ 



1,810.8 

10: GOTO 



THEN f 
THEN X 
THEN 
THEN 
THEN 
THEN 



F.79O.9OO.B10.B 



GOSUB 1B30 
ON G GOSUB ; 
20.33O. 810 



ON D GOSUB 780, 790.1 
20,830,840 
X - X * I3:Y ■ V - 1< 



) X - X 

I A - ll FOR N - 1 TO 29: IF DD 

7.1N.2) : ) 2 THEN NEXT H 
I IF N > 28 THEN 610 

) EX - Xi GOSUB 770: T - DDXtN. 1 



' REM 1ER DOUBLE 

1 VTAB 22: HTAB 1: PRINT "APPl 

¥EZ SUR UNE TOUCHE " : : GI 

Rl: PRINT 
'EX - EX - 30 

I FGR T - 23 TO I STEP - 1 
I IF DDV.tT.2) » 1 OR DDXIT.2) 

2 THEN IF LEFT* IND41Tl.ll 
<ND4 'Tl . 1 1 THEN ( 



P4 = -D- THEN 
E(4I OR E12) - E(3I 
13AO 
) VTAB 23: HTAB I: PRINT "IMP 
0SS1BLE NE TRICHEZ PAS": FOR 
M ■ I TO 2000: NEXT : VTAB 2 
3: HTAB ll PRINT - 

) JV.IA.21 - Ol GOTO lOAO 

> IF E(31 = Ed) THEN GOSUB 
1B40; GOSUB I20lE(ll - E(41 : 

GOTO 1390 
) IF £14) - Ell) THEN GOSUB 
IB30: GOSUB 120tE(l) - E<31 : 
GOTO 13SO 
) IF E(3) - E<2) THEN GOSUB 
1B30: GOSUB 120tE(2) - E(4)s 
GOTO 1380 

> IF EI41 - E(2) THEN GOSUB 
1840: GOSUB 120:E(2) ■ EI3)l 

GOTO 1380 
) HCOLOR- 0:EX - A • 14 - 4: GOSUB 
770: HCOLOR- 3lJ9 - O: GOTO 



1930 • 

1940 
1950 

1960 



. IF PO • I 
B SOnMES • 

1400 

• G» - LEFT* (NMID.luG - A9C 
IG4) - 64>D« • RIGHT* (ND«( 
Tt.lIlD - ASC «D<) - 64: FOR 
9 - 1 TO 3:B - PEE> (4920O) 

1 0* - LEFT* (NO*(T).l)iD - ASC 
(D*> - 64:8* > RIGHT* (ND*( 
T1,1):G - ASC <G*1 - 64: FOR 
B - I TO 3:B - PEEK (492001 

: NE'T S: RETURN 
) IP D " G AND FG • O THEN X - 

■ FG - U IF D ■ G THEN i - i . 

4: GOSUB 7SO: GOTO 1890 
) X - X * 8: GOSUB 7*0 

> X - X * I 

) ON G GOSUB 780,790. BOO, BIO, 

820.93O, B40 
) IF G - D THEN I - X • 9: GOTO 

1920 

> V - Y » 10 

> ON D GOSUB 7B0. 790,800. BIO, 
B20.83O.940 



1390 
1400 



REN FIN 



TIE 



-EH.E 



930 
960 OX 
970 HCOLOR" 3:01 
F E<3) - £ 

- 321 P* • ■ 
340: GOSUB 
GOTO 1020 
F EI41 - E< 

- 32: P* - ' 
830: GOSUB 
GOTO 1020 
IF E(3> - I 

* 121 P« - 
B30: GOSUB 
GOTO I02O 



340: GOSUB 



1 THEN X - C<I> 
i-lY - C(2): GOSUB 
20:E(1> - E14J : 

1 THEN X - C ( 1 } 
I-lY - C(2)i GOSUB 
20:E(11 - E(3)l 



21 THEN X - C(3 
D-iY - C(4): GOSUB 
20sE<21 = E!3) : 



PRINT -J' AI GAGNE "I 
RTIES ET VOUS "tSJI' 

IF SO - 3 THEN PRIh 
H J'AI GAGNE": GOTO 1 

IF SJ • 3 THEN PRINT "BRAV 
O.JE n- INCLINE': GOTO 1440 

GET A*: GOTO 70 

FOR T • 1 TO IO0O: NEXT i PR 
-UNE AUTRE MANCHE 7"l GET A* 
: IF A* < > "N" T1«N RUN 



> GOTO 1460 

i END 

I REM LE JDUEUR EST BLDOUE 

i JB - 1 



>,B10, 

9i GOTO 



IK 1 1 



1020 HCOLOR- OiEX - A • 14 • 132 
GOSUB 770: HCOLOR- 3:0V,(A, 

21 - 1 
1030 REM LE JOUEUR JOUE 
1040 B = Ot FOR A - I TO 9: IF 07. 

(A. 21 - 1 THEN B - B * I 
[050 NEXT A: IF B = 9 THEN PO - 

- 1: GOTO 18O0 
1060 VTAB 22: PRINT "A VOUS DE J 

DUER 
107'.. FOR A - 1 TO 9: IF JXIA.2) 

THEN 1090 
108O NEXT A: GOTO 1630 1A20 PRI 

1O90 GOTO 1140 

HOO GET A*: IF A* - CNR* (21) THEN 1630 PRI 
HCOLOR- O: HPLOT CX.134 TO -,- 

CX * 12. 134:CX = CX - 14: 



FOR y - 1 TO 100O: NEXT 

IF OB - I AND JB - 1 THEN 1 

MO 

OOTO 1030 

REM BLOACAGE TOTAL 

HTAB ll VTAB 22 

PRINT -NOUS SOMMES BLOOUE5 



■ G AND FD - O TM 

- X * 4 
' FD - it IF D - G THEN X 

4: GOSUB 730: GOTO 2010 
' GOSUB 760 
11 • » • I 
) DN GOSUB 7B0.790,( 

B20,830,B40 
) IF 8 - D THEN X - X 

2040 

> Y - Y . 10 

) ON G GOSUB 7B0.79O.eO0.BIO, 
3 20. 830.840 

> IF D - G THEN X - X - 3 
) X - X - 13iV - Y ♦ 14 

) IF - G AND ND - 3 THEN X • 



IF D - G THEN V - 
X * 22: GOSUB 760: X 
GOTO 21 30 



) ON G GOSUB 730.790.800,810, 

B20.B3O, B40 
) IF D - G THEN Y - V * 10: GOTO 

2160 
) X - x * 10 
J ON D GOSUB 780. 79O.BO0.81O. 

820,830,840 
) IF D - G THEN X - X * UY - 



"COMPTONS t 



1 POINTS. 



114. 



70 



110 



- 140iV - S: GOSUB 1B40:EC 
- D;£<2> - D: GOSUB 190 

F DDXIT.2) - 1 THEN GOTO I 

F DOXfT.2] - 2 THEN GOTO 



CMR* «81 THEN 
OT CX, 154 TO CX * 12. 1 

f - 14: GOTO 1140 
CHR* (271 THEN 14B 



1630 
1660 
1670 1 



2220 
2230 
2240 



IF D - G THEN V - 
X - I4i GOSUB 76A| 1 
GOTO 2230 



GOSUB 1830 



ON G GOSUB 7GO.790.GCiO.BIO, 
B20.B30,840 

IF D - G THEN V = Y • 10: GO 
2260 
] X - X - 10 

I ON D GOSUB 7B0.79O.a00.GIO. 
B20.B30.S40 
IF D - G THEN Y « V - SIX » 



TABLEAU ANIME 



Ce programme concu pour APPLE He realise un tableau 
anime en langage LOGO LCSI. Ce programme fonctionne 
egalement avec APPLE LOGO et LOGO ADAO. Ce pro- 
gramme est constitue de 12 procedures la procedure 
d'appel du programme est FILM. 
Lavantage de ce systeme de programmation est qu'il 
puissepermettredereutiliser les procedures intercalates 
(Arbre, toit, maison...). Comme primitives du langage. 

Janine BOUYGUES 



-ETE 11 'fiV M 



TGfrLEt!. 

c 

■ftSL :• 
FI* 



ARME 



FPOS "50 50* 



aous HfllE 3N IB 







POlffl TABLEAU 






z.- 






DO--v c "A 50 






■B 80 






c ^ 






DONNE 'D 2S 






"E 2 






kE^EE 






-ORET 


^\l 


*k 


-.-... ■ 


. ^Nfi 


, 1 




1 I lUL 


•V 


-C CENTRE BV E 


L^^^^ 




BOtEIL 






■ ■ ■ 






f;n 






iUUK FORC1 






LC 






FSQS '-9B -so* 






BC 


LC . 




a4BAE £0 


CENTRE 




nmoa « 


FOOS - -&0 -801 




lC 


EC 




FPOS ■ ■ 


FCC 1 




BC 


R£BET£ IB - AV 50 DFt 


9 nv i 


■■ ■' ■ 


B M 90 W 90 DO** 


b l 


AflBRE 30 


k - I DH '•■■ ■" ■- ■■ 




LC 


f;\ 




FAQS - 100 -801 

BC 


POUS TOI r :" 




Ml ■■■ 


uC «V SO BC FCC (. 




cjbhc M 


5A JO 




LC 


TRIO :B 




poos -no -so* 


DR 30 




BC 


SE 23 GO 90 




(VG&BE 80 


.-.v 13 




f.O&BL 30 



i AV 1 DR Sv «V 55 GA 90 AV 



1 DR 120 DONNE 



pj>pl£N 



POUR ENCADRE 

lC CENTRE 

FCC Z 

FPOB --140 -120* 



PDUR CADRE i 



FPOS *-120 -1001 



DR -K' 
R£PETE 10 
GA 30 
FIN 



AV ieO GA 90 AV 1 GO 30 OV 




CARTE DU MONDE 



Une carte du monde avez vous dit ? Et comment faites 
vous ? 

Eh bien c'est tres simple.Vous prenez une carte du monde 
format 1 20 x 80. vous !a coupez en 46.800 morceaux (156 
hgnes de 300 colonnes) et vous mettez le tout en datas. 
Ensuite il ne vous restera plus qu'a rentrer 262 pays et au- 
tres departements (accompagnes de leurs capitales, su- 
perficies et divers codes permettant de localiser le tout) 
avant de plonger dans !es affres du traitement de don- 
nees. 

Mais apres etre passe (e) successivement par ['Enter, les 
comprimesd'aspirineetlesmicro-coupuresvouspourrez 
enftn contempler dun ceil beat (si ! si !) et comprendre le 
debut du quart du dixieme de la base des relations Inter- 
nationales qu'on appelle la geographie. 
RS. :ildoitsurementetrepossibled'ameliorerlaqualiteet 
la definition de la carte avec la haute resolution et des dis- 
kettes. Avis aux amateurs ! 

Luc COIFFIER 



Adaptability sur d'aulres materiels. 

II laut savoir que I'ecran du Sharp possede 80 x 50 points en semi-gra- 
phlsme et 25 lignes de 40 colonnes en utilisation normale. La carle est 
affichee en semi graphisme. 

De plus I'afiichage surfecran peul se taife par POKES, lesadressescor- 
respondantes allant de 53248 (en haut a gauche) a 54247 (en bas a 
droite). 

La carte du monde est stockee dans les datas par ligne. Sur chaque li- 
gnes on repere le nombre de fois ou la terre emergee apparait puis on 
code les diverses coordonnees d'entree et de sortie par rapport au re- 
terentiel horizontal qui va de a 300. Cela donne ■ 
3650 DATA 3Jffi2-t33, 198-202.225-245 



suite du 
listing du 
N21 



En taison de la longueur du Ki- 
ting, nous passerons ce pro- 
gramme en plusleurs tois 



.abs asse du debut de I'emer g ence 

abcisse de la fin de I'emer gencc 
nb de fois ou la terre emerge sur cette ligne 



'279 IF It— 1 THEN1238 

"288 CCUJ-CU!J»1 

>?38 IF C(0J=8 TMENCr.8)=l I :60T0l328 

•388 IF C(l )=8 1«NC(I )»ll :G0T0l-3?8 

>3I9 CC41-11 

1370 rt»'Pi*-B«=CB*:C*=S79*CSu):GOSLiB3fll8 

:CtJI J-CCJI )*4 

"338 IF CtU-8 TMEHCCIJ-I I :GOT01368 

'348 IF C(4)=9 TrtNC<1)=li:GOTQl360 

'358 C(S)-I1 

'368 A»-f*T«:B*-CA* -C «-STR«( SI) ) :GOSue3810 

■C(J1>-CCJI>*3 

1378 GOTO MSB 

1388 IF CX>228)»f.CX<58) THEN CX=CX'3B8 

'398 DX=CX:0T-CY.G0SUB2338 

1488 IF 1?— 1 TH£N>428 

1418 C(12)=l 

1428 IF CtB)=S THENCr.8)=l1 ;&OTOI449 

'438 C(l 1 = 1 l 

■44e rt*--p-f«:B«'Cfl«:C«^STK«(SU):&0SUB38l8 
CCJD-CfJI J'2 
1458 R£STORE,:CA=B:CE-l 

'460 FOR 1=8 TO 39:AFCI 1=PEEKCS42B8- I ] :N 
EXT I 

1478 FOR I-l TO 7 
1488 G0SU833SB;G0SUB2318 
1498 REAO A» 

'588 GET R«:IF (R«-"D- J*CR«-"N- ) THEWTUS 
[C-C8-^GOT0lS38 

1518 CURSOR B,21:PRINT A* ; ' MBH * : POKE 54 
247,8 

1528 GOSUB 7980: GOSUB 2318 
1538 FOR J-l TO 489 
1548 KXT J 

1558 GOSU83-380:GOSUB23IB 

1568 FOR J=9 10 33;POKE S42B8*J, AF( J ) =NE 
XT J 

1578 NEXT I 
1588 RESTORE :GOTOI47B 
1590 IF R*-'N' THEN2779 
1688 OH Ct*1 GOSUB3480.34SB 
1619 RESTORE :CU=0 
1628 READ I1»,I2i,I3«,I4* 
1638 FOR 1-1 TO 24 
1648 G0SUB23IB 

1658 FOR J»l TO SO^REAO A* snEXT J 
1668 NEXT J 
1678 G0SU6231B 

1688 JN=0:F0R J = l TO I9:R£AD A4:NEXT J 
1638 REM) PX«,C74,CB4,ST,NU»:&0SUB2319 
17B8 CLCCU*1 i IF CU-262 7HEN275B 
1718 IF PX«='ETATS-UHIS- THENJN* I =NB=5I : 
GOT0 1638 

1728 IF PX«--UR£S- TMEHJN-2:He-l5:GOTOI8 
38 

1738 IF JN>8 1MEN NB-MB-1 -IF H8*B THEN J 
H=8 

1748 IF PK«»Pr* THEN1638 
1758 FOR 1-1 10 LBHtO*i 
t?68 if niwccw, t,I]-*-" THEM J-l 
'778 NEXT I 

1788 nX»UrtLCLEFT*tCet, J-l j) tAT-UAt (RIGHT 

«(CB«,I-J-1 )J;GQSIjS231B 

'738 IF X>228 rnEM182B 

1888 IF <f- ■■ - HEH1098 

'810 GOTO 1 848 

1820 IF AX098 THEN M&tOH 

1030 GOTO l 980 

1048 IF CflT-T<2!J«C*n 

'ess oi*w,cterr»t««, uhcm riqht«(cm 

.LEN(Ut)-l) 

!j:.">:n 
187B IF li=-\ fHI !■- 
188B IF CC1ZXS tHEHCllll C I! h 
88 
1836 &En O0EeE8e8£9£BEBE8EB£8E0EBE8E9E0£ 

H iuaEBEBCE 
'388 REH <"(J OtplOO-Mnt ■!■■■'■ -.i-ir* FQ 
'918 "En COE8E8£8Eae8EBE8E8Ea£0E0E8E0E0E 
8EB£8E0£8£B£0EBEBE0£0E»Fi!Oa 
'329 On I2»i G0T0I939, I9l8, 1358, IMS, 197 
8, 1388 

1938 H*53288;&OTOI330 
'948 M=53388;&fJT01338 
'958 W5364B,G0TDI3'JB 
1968 H>53B69'G0T0I33« 
'378 H»54B88,&0r0l33B 
'988 H-54828 
1998 riOSU8291B^IF C(l?)"14 IM 

2818 FOR 1=8 TO ■ 
2020 POKE M-48IJ- 
7930 ME>[ I 
7848 NEK I J 




J.-68. 650000. 1& 

index Opoint eteint iCoordon nees de la coordonnees reperes 
p oint allume [cap itale p our le trace de la carti 




1 = 8 TO 13 
TO 4 



I"l 



MAZ 8° 



7888 POKE Mtt8i[.J,C2(J, I) 

7838 NEXT I 

718B HEXI J 

21 10 G0SUB231B 

7128 IF KHI-ia rHOI IM^»W>W"CW»»8 

'R»(sv; 

2138 IF CU2XI5 THEH n«=pr»:B»-Cfl» =C«-S 

TR»(SU) 



2148 IF CCU2)-lS)*(CtI2)=l3) Th£NZ2=I JG 

0102168 

2158 11*2 

2168 G0SUB3B5a:Ctjn'CfI2):CCI2)-3 

2178 G0SUB2318 

21B8 U-U-t :1F U=l THEN 0lnC3C19,4) 

2190 FOR 1=8 TO S 

2298 IF CCI)»8 THEN J-I 

2218 NEXT I 

2228 C(.n = 1 I :j3 = j:fl*=PX«;8*="C;*:C»=STR*C 

ST) 

2239 IF JN=1 IHEN B*'Bt*SPCC15-LEN(8*n* 

"USfl- 

2248 IF JN=2 THEN B«-B»»SPCtl4-LENtB»)J' 

*URSS* 

2250 Z2=3:GOSU83058:&OSUB23ia 

2268 CURSOR 6. 24 ;PR[NT 13* ;"IIfflBe" 

2279 POKE 54247. B 



S FOR 1 



to ; 



2238 G0SUB23I8 

2388 GOSUB 3388 

2319 FOR J=l TO SB»:MEXT J 

2328 GET R* 

2339 IF R*='fV THEN nUSICCa-;G0T0 2530 

2340 IF Rt = -R" THEM rHJSIC"C8' : 1=28 
2350 SEXT 1 

2360 ON CL'l G0SUB34 8 0,3459 

2378 FOR J-8 TO 33:P0KE 542B9-'J ,ftFtJ ) =NE 

2380 ON J9*l GOTC2398, 2488. 2418, 2420,243 

8,2448 

2338 H^532B9-60T024Se 

2400 H=53388-G0T0245B 

2410 H=S364S:GOTO2450 

2428 H=S366B;GOT0245a 

2438 H=54889:G0T02459 

2449 H-54828 

2459 FOR J-8 TO 13 

2489 FOR 1-8 TO 4 

2478 POKE H*I*4B.J,C3CJ,IJ 

2498 NEXT I 

2430 NEXT J 

2589 C(J9)-e 

2518 IF 1SO-I THEM CC Uj-C( I2)-3 

2520 G0T01638 

2530 FOR 1-8 10 33.P0KE 54288'1 ,ftFt I ) =NE 

XT I 

2S40 CURSOR 8. 24;P«1NT I4t;'U0S8" 

2550 POKE 54247,8 

2560 FOR 1-1 TO 58 

2579 GET P«-[F (i(li-N-|*(»«'"C'l THEH26B 

8 

258B NEXT 1 

2599 GOSU825I0:GOSUB33B0 

2080 ^OR 1=8 10 n POKE -.XJBBM.rtFUjJNE 

XT I 

2618 CURSOR 0,24!PRINT J ?« ; 'OIBSS" 

K '^124^, a 
3SX FOR ; 

■ - i: :f ::-i N* ]»((?< I iHtH268 

■i 

. .■ . - 

. ■ .-■ . .,■ ■.■ 

: 
. h i - ■■ ■ ■■ 

[« .--i 
- ■■ e ..■■.■: 

,.-,.■ 

... .. . .- .- .■. a 

27A9 PRINT*P*i4B,*C4)-)>60Sl«9l0iRllH 498 

■ ■:, -...,. eortl lnu»r a 

ppuytz t',r ..r* to>jcr>» B8BU0S'' 
2760 GET ft- If- M Tut 1*2708 

INI '■";«, 'C4*)'l»SUMSifl 

tlNT"IPoUP r":om<—r-r-' '.;■■-•■ 

■ ■■ 

7>"j3 PRIHT'oppuv*! •»*- l " 1 » «WN ' 

i ro snow /i i 

ft; IF R*»" THEN28I0 
2838 If f»--o ' Tt€h HUH 

,- B* :EnD 
2840 REfl Da£8EaE8EGEHeBEBf_BFBEeF&ref«' 31 

■ - ■■> aEBEBEaEBEBCeCE 

2898 T rt FO Sout profOBcK.* Fp 

■ ten FO£0E0EBE9E8EeE8£0E0E0F" ■' 

■ Bl 3Efi£BtBEaEBEe00 

Mrs. PR|tiI-|l08e8C8£B£BEaEaeBEeF8fBE8eeF.8 
E9E8E8F .ti> ■■- ■■■ M 0F0E0F8EBE8E8E8 

| 0| ;rr Bl BCI ' 
2B8B P»lfU 'D fori- dw Pond- 

FD' 
2838 PR|Ml-CDE0EBFaEeeBEee9E8E0EaF0F.8£0F 
0| n B| in Bl 01 B| B Bl 
:■ ■ , 

?')38 RefiTORt iR] row 

2318 CURSOR 2'i,0;PRlNTLEFT«(TI*i2)i ' " " 
:niD*( 114,3.2) , * -o" 

2828 RETURN 

2930 I/'-i 

2340 IF {0T-T>l ).(0T-T<I7)THEH IF 0X-X<4 

9 IHEN 12-9 

7358 If (Ur-r>i ;i(0r-T<l7]TH£H 1F0X-X>3 

; IHI N [J-1 

2369 IF (0r-T>19)IC0'-T<3811HEN II .;.■■ K< 



48 THEN 12=2 

232B IF CDT-T>13JJHDT-T<38JTH£N IF 0X-X> 

39 THEN IZ-3 

2388 IF C0T-T>3?)*COT-T<49jThEn IF DX-X< 

48 Then i?-4 

2339 IF CDT-T>37)>(DT-T<48)TH£n IF DX-X> 

33 THEN IZ-5 

3808 RETURN 

3810 ll*lli\ .-G0SUB231B 

3828 ON 22 G0T0383B,384a 

3038 Oin ClU3,4)iG0T03858 

3848 Din C2(I3,4) 

3050 J1=?:F0R 1=^8 TO SUF CtlJ = 1l IHEN J 

'=1-1=5 

3868 NEXT I 

3078 IF JK6 THEN3188 

3080 FOR 1=8 TO 5UF C(I)-8 THEN Jl»l =!■ 

5 

3898 NEXT I 

31B0 GOSUB2310:ON J I -I G0T03I 10,3128.313 

0,3140,3158,3168 

3118 H-S3280:XI-8:TI-1 :G0I03I78 

3129 H=53388-XI'20:ri = l :GOT03I78 

3130 H=53648;.Xl>B:Yi-iB:GOtO31- , 
ii«0 H = S3S68^l-2a:TI-|0:&OTO3l70 
3158 H-54898:X1=8:T1-13:GO:O3J?0 
3168 H=54828-XI-28:TI=I9 

3178 FOR 1-0 TO 4:G0SU829IB 

3188 FOR J-8 TO 13 

3198 H>=M-iat [.j 

3208 ON 22 60103218,3220,3238 

-i/\H riu, ]j=PEEKtMI );GOT032 n B 

3228 C2[J.T) = PEF.M'" 1 :G01037"p 

3238 C3CJ,lj^PeEK(HI) 

3248 NEXT J 

3258 NEXT ] 

3260 C I 4-STR4 1 1 NT ( UFIL CC* ) ) ) : G0SUB29 I 

3278 IF L£NCCI«J<1 THENC2«-C I » -G0T03398 

3288 IF LEN(C1*K? ThENC2«-L£F T*(Ct *,LEN 

(CI«)-3)'" "^RlGHT«tCl*,3):G0T033BB 

3238 C2*-LEFT*CCI«,LEN(CI«)-6)»" "'niDIt 

C1*.LENtCI*)-5,3J.- *+RI0MT«fClli3) 

33B0 C2*=C2»*RIGMT*tC*,LENCC»)-LFNICl*)J 

•- km2"^GOSU823l0 

3910 CURSOR XI ,'1 :PRlNT'OBE8E8EBEetBLBrO 

E8E0E8EBEBE BE8EBEBEBE BCF MB8 * 

3320 CURSOR X!,T|.| :PRINT"FO-ifl«;SPC(IB- 

LENCW);*FTJiiB»' 

URSOR XI.TI+atPRlNT'FD'jMiSPCttB- 

LENtBOIr'^OfflfflflH" 

3348 CURSOR XI , Tl*3 :PRIN!*FO " |C2* iSPCC 18 

-LENCC2*)); FOOIHB' 

3359 CURSOR XI , Tl »4 :PRINr-CDE0E8E9E8E0Efl 

e0£8E0E9E8E8E0Ee£Bf.8EBEaOOBDHH- 

3368 CLR l,J,ft*,B*,C«,CI*,C2».XI ,TI ,HI 

3378 RETURN 

3388 ON CIV! G0SUB34Ba,3459 

3398 CURSOR CA t CE:RETURH 

3188 IF If(<7 THEN3420 

3118 RESFI CU-XiCU-t 

3428 RESEI CX-X.CT-T 

M38 IF LOB THEN RESET «X-X,AT-T 

3440 Rf rURN 

3450 IF IN<2 THFr'3478 

.:..-.■ 
3470 SET CX-X,CT-r 
34B0 IF U08 IHEN SET F*-X,flT-T 
■' rURN 

■■ Bl ••■< Bl !■' 
9E0E9E0EBF ■■- 

BC8C8 F3CB 
E9 FS~ FD 

»28 REM FO C8 CB CB CB CB C8 C8 H 

C6E9 fo 

3538 &F.F1 FfJ C8CBC3 F808CB C8 CSOSCfl 



,.C9 



FD 



3540 REM COE0£eeBEB£8EaF m Bl - ,: ■" Bl ■'' 81 
8£0E0E0EB£0EBE0Eer tl' ■ 

..■,i ■■ .[). U-tiui <*" d*fil»*i»nt d 

flTfl - .N. fVr.l d. Ifl «»ftu«« 

, ,. . .(-,. err-- du <*fl ItMnl d- 
• pay. 

nTFl " -C. Cart, du d«rr-;.i- P 

Of 

H98 RCri 

3600 REn O8EeE0EeteEOC8Ee£eEeEB£eEee8E8l 

01 Bl Bl to !irnFe£BEBEaE8E8EBCE 
3618 REM FO DFiTOS d»i conioun t* Id En 
r' r CrtRTE DU nONDE ^D 

. M C0EBF.BEBEBE8EBI 81 ■ ' ■' ■ 
Bl urUEaEBEBEaEaEBOO 
3640 REn 

36S0 OfllFi 3.1B?-I33,I3B-787,?2*J-245,3,I8 
7- 134. I '17-708, 223-244 , 3, I 83- 131 
3fi68 Dfltrt 132-700,723-244,4.183 I 18, 
185,180-199,221 ^4 i , i, 1H2-13B, 196-198 

1078 DMA 771 241 ,?43-71-J,*J.B1'i-B4?,8«- 
858, 863-973 , B70-B77 . B82-BB3 , 1 82- 1 32 
3060 OflTrt I35-I97. 77I-748, 243-71 l, i I ,849 

■ 853 , 864 - B67 . B63-B72 . B75 -B76 , 878- 688 
363B O/iTrt 087-004.192-133,135-197,783-71 
«, 218-739,247-745, 17,815-857,065-867 

3780 OrtTrt 078-072,874-070,078-888,887-08 
•„ I 82-177,131 -I 31, 134- I 37,718-733 



37IB DOT* 241-249,255-756,14,845-851.853 
-854 ,865-867,979-872,874-876, 878-879 

3729 OATft 187-176.123-129,131-131,194-19 
6,288-211,213-213,218-251,755-258.13 

3730 DOTH 845-843, BS7-B54, 863-808. B78-B7 
8.e74-875,B7B-0?3,eB1-aB5,10?-l29 

374B DnTFi 132-133,133-136,288-71.'. 
3,219-758. 15,845-048,851-854,956-858 
3759 DMA 864-868,878-878, B74-B74 ,97687 
9,881-886, 102-127,138-130. 191-196 
3768 OftTft 707-218,213-216,219-258,767-27 
3. 11, 945-848. 85 1 -85S.B65-B68, 875-879 
3778 OrtTfl 882-807,181-138, 193-196,797-78 
9, 71 1-217, 279-250, 267-775, 15.845-948 
3788 OflTW 858-859,866-867,878-979.875-87 
9,882-887,101-191. 194-176,179-137 
3730 Of»If> 195-136,207-799,71 1-218.778-73 
8.261-261,767-775, 15,846-947,854-860 
3888 D/ITA 866-066,863-871 ,875-088, 882>88 
2,986-090, 185-127,138-133. 1 98 
3818 PftTfl 796-783,212-218,279-759,761-76 
4,766-775, 17, B 18-91 8. 851-061.869 -07 1 

3878 D/HP. 876-968,884-090.105-177.' II 13 
3, 136-198,785-718,717-7111. . 

3838 Ortlrt 781-782,16,816-813,852-863.968 
-871, 876-88', 8B3-B92, 186- 176, 166 w- 
3840 flrtTrt 199-133, 785-218. 717-783. 14, iM-, 
-825, B47-B43, 846-846. 8^4-0', < 
3830 OFlTFt 879-B8e,eB3-B32,103-l?B.I 'B I 3 
7,183 I 73, I-J0-I3I ,700-780.706-710 
3860 DMA 2l2-2B3.l3i8l4-83l.B43 843,848 
-816, 848-948,054-063, B66-067, 978-07? 

3879 DATA 877-878, 0B5-B97, IB?- I87, I88- I 3 
' ,165-176, 138-131 ,201-781 ,786-719 

3880 DATA 712-21 7. 716- 783. 731 -791 ,293-29 
5,15,814-933,938-858,955-861,856-868 
3896 DATA 871-073.077-989,886-097,107-18 
4,186-131, 165-173,191-131.781-783 

39B8 DATA 787-21 0,710-730, 293-733. 18.91 7 
•853, 8SS-9S6, 967-063,965-868. 871 -974 
3910 RATA 077-009,887-891 ,164-184,196-17 
6, 104-181.187-187,134-194,137-139 
3328 DATA ?B I -285, 708-21 1 , 713-714, 717-23 
1 ,793-390, 15,001-991,01 1-057,959-668 
3936 DATA 876-071 ,B77-B8B,987 -891 . IflO- I 7 

6 , 1 64 - 1 8 I . 1 87- I BB . 1 3 1 - 1 34 , 1 97- 785 

1948 HflA 208-211. 7I3-7I4. 717-231, 793-30 
8, 11,001-087,61 1 -052, 856-8S6, 058-061 
1950 UAIA 666-666,663-074,077-888,088-83 
7, 105-175, 163- 183, IB?- 187, 191 -2 1 8 
3168 I1AIA 713-715,718-380.11.881-683,81? 
-856, 058-667,869-886, 887-833, I A3- 173 
3376 DATA I6Z-IB4.IB7-187, 198-710. 71371 
4, 718-388. 17,881-083,685-085,813-057 
39B8 OAIA 853-673, 680-837, 185-177,138-13 
8, 167- 176,1 73- 1B4. 188-788,71 3 -71 5 
3338 OATA 71 7-386, 1 7,881 -893,885-666, 81 4 

-876,B78-873,BB5-B97, 165-171, 173-138 
4880 DATA 132-136, 161-177. 180-183, 188-7B 
7,217-388, 11.881-987,81 1-811 ,010-871 
4818 OAIA 074-876, 083-093. B9 1 ., -837, 106-1? 
0.17B- I 37, 161-168, 177-173,184-300 
4678 DATA I t , 881 -BB6, 8 I 8-»l 1 ,016-071 .878 
-978,083-633,035-030.106-111. 
1030 UAIA 160-167, I77-I73.I64-380, I7.001 

■881,083-985,089-873,879 B?9| 

4046 DAICi 087-633,185-117,173-135.160-10 

-■.171 i 79, 192-102, |8l 

1858 Oi ■ ■■ ■■■■■■: 
4, |0B 117,13 

4969 DAIm 'ii I ,■■;:, 10,881 

B/7.077MB1 ,*afl9-03r,, 187-1101 
4h;b DATA 59-11 ' •'■""' 

B ,871 998,8 1-891,8 I B 
4088 DATA 137 185, II ' 1.88 Bfl 

809,871 077.078 B.'H . 

.':.'.'. 19,0,81 i 

908,99 ' ■■■■■■■■■ ,83 OTIi 98 114, 134 104 

4in0 DATA 108 199, ' -' 981,884 999, 189 

i i i, |54 ■ ■ 822 

4110 DATA 875-868, 864 -BB'!. 1 89 M3i I I : ' 
«, 169' 282, 785 29Si2BB 299, I I .81 1-82? 
4139 DATA 825-829,828 908,880 991,893 99 
5,111-112,154 103,189 i.'i. : 
4138 DATA 284-283, 297-293, 18i8l2 Bl '■■'■ 

,894 993 
«148 DATA 151 I97.I53 "-. 1 71-291 .760-23 

7, II .813-01 1,81 5- 828,9 

• 138 DATA B '4 '■'■'• 108-18 

i, 109-274, 

1160 flAIA 073 B74,631-B',B.0H i M'll ,H'M ; -i 

■,. 133 !■■.'. I08- 161. i 79 108,370 379 
■'■i .'ii DATA 384 298,9, 91 ■ 919,9 '■ 89 1,871 
871, 864-830, 144 145,143 n.7, 101-164 
4198 DATA 178 386,29 I 165,9,816 in9,830- 
871 ,889 9961 141 I47, I59 ISS, I01-I63 
4190 DATA 109 189,171-200,282-280,8. 9\7 

■ ■ 1,085-837, 141-146, 158-153 



a suivre 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



LOGICIELS V1F1-NATHAN 
POUR APPLE, SPEC- 
TRUM, TEXAS ET T07 

Che2 Vin-NATHAN. on ne 
chome pas. des logiciels par 
dizame arrivent dans les bouti- 
ques de micro Des "MICRO- 
DIDACT" pour APPLE "J'ame- 
liore mon francais", "J'explore 
I'espace en calculant". "la bel- 



le au bois dormant", "Hansel et 
Gretel", "IFR" (un simulateur 
de vol) et "la calculatrice" 
Pour SPECTRUM, quatre logi- 
ciels educatifs. "la course du 
robot", "combien font ?". "cro- 
que nombres" et "des en chu- 
te fibre' 1 Adapte pour Texas 
Tl 99/4A, des logiciels deja 
eprouves sur T07 : "Mots 
croises 1 et 2", "la carotte ma- 



licieuse" (se deplacer et se 
reperer sur un plan quadrille, 
de 6a 9ans)et "complements 
et multiples" Enfin, pour 
THOMSON T07 : "Melime- 
mot". une cartouche pour 
jouer avec les mots caches a 
partir de 12 ans "Quest", une 
cartouche et trois cassettes 
pour jouer a tout savoir, plus 
de 500 questions par cassette 



sur I'histoire. les sciences, le 
sport, la culture generate. 
etc... Le volume 3 de "Cock- 
tail". 11 microjeux. Unecasset- 
te regroupant un Yam, un Soli- 
taire et un Poker "La cle des 
chants" pour apprendre lesol- 
fege. "la ronde des formes" 
pour apprendre aux tout pe- 
tits a reconnaitre et a associer 
des form eset des couleurs. Le 



DES LOGICIELS can.-, 
POUR CANON 



Explorez les etonnantes possibilites de votre CANON 
X-07 avec les quelques 40 programmes reums dans cet 
ouvrage. Des programmes performants qui fonctionnent ( . 
sur le X-07 de base (8 Ko) ; caiculs scientifiques : opera- 
tions sur les matrices, conversion de coordonnees. 
racinesdepolynomes. integration, interpolation, etc Des 
utilitaires : gestion de compte en banque. histogramme. 
impot. hard copy, trace de courbes. biorythmes. etc Des 
jeux : loto. poker, ardoise magique, un peu d'EAO, un 
super jeu daventures : le Tresordu Galion et trois "gros'i 
programmes qui necessitent une carte d'extension 4 K : \ 
Astral, Tierce et Surfaces et Volumes. 

UN LIVRE SIGNE SHIFT EDITIONS ! en vente Chez les 
distributeurs CANON et par correspondence. 

>< 

BON DE COMMANDE A DECOUPER OU RECOPIER. 

A ENVOYER A: 
SHIFT EDITIONS : 27. rue du GAL-FOY. 75008 PARIS 
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PRIX UNITAIRE: 95 F 
contre remboursement 

REGLEMENT JOINT 
cheque □ CCP O 



JEUX 
ET 

PROGRAMMES 



ORDINATEUR INDIVIDUEL 




France + 20 F D. etranger -i- 30 F c 

.0 0F DATE ; 

SIGNATURE 



1. EQUATION 2ertte DESRE 
2. INTEGRATION 
3.RACINES DE P0LYN0ME 
U0TRE Cmi'-A < 1/2/3 5 ? 



quatneme volume de "Initia- 
tion au langage basic" sera la 
derniere de cette longue Irste 
qui va encore s'allonger des le 
mois prochain. II faudra bien- 
tot un ordmateur pour faire la 
liste de tout les logiciels dispo- 
nibles ! 



Et deux nouvelles 
boutiques SIVEA, deux ! 

SIVEA ouvre encore deux 
points de vente, un a ROUEN 
et un a LYON. Ouvert du Mardi 
au Samedi de 9 h 30 a 18 h 30 
et le Lundi de 13h30 a 
18 h 30,vouspourrezyretrou- 
verrinformatiquedomestique 
et professionnelle. les peri- 
pheriques, la librairie et les re- 



vues franchises et amencai- 
nes Celaportetenombfedes 
boutiques a 9. 3 a PARIS et 6 
en province, encore quelques 
unes et SIVEA fera concurren- 
ce a NICOLAS (les boites do 
cassettes ne sont pas consi- 
gnees) 

SIVEA ROUEN 70 88 30a par- 
tir du 6 Mars et SIVEA LYON 
895.00 01 a oartir du 3 Avril. 



RADIO GRAOULLY-METZ 

A partir du 1" Mars RADIO 
GRAOULLY-METZ sur 97.6 
Mhz vous propose tous les 

jeudi de 18 h a 19 h une emis- 
sion infomnatique : "FuTUR 

M ATI QUE". ■ 
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Dessme sur ORIC-I par Denis 
AUMiS ET Jean-Michel NGUYEN. 




DES LOGICIELS POUR 0RIC, SURMESURE. 



LE LOGICIEL 
DE LA SEMAINE 




Module ROMOX 
"SPARK BUGS" 
pour A1AR\ 



Les ordinateurs ATARI ont tou- 
jours possede une large palet- 
te de jeux, le plus souvent de 
bonne qualite. SPARK BUGS 
continue la regie. Commercia- 
lise sous forme d'un module 
compatible avec les princi- 
paux ordinateurs d'ATARI 
(400. 800. et la gamme XL) 
ce jeu est base sur un theme 
relativement original. 
Vous manipulez un cobra a 
I'aide des manettes de jeu 
dans un univers comprenant 
des pylones. deux ascenseurs 
(un pour monter, I'autre pour 
descendre) et les affreux 
SPARK BUGS. 

Vous devez reconstruire un 
reseau electrique en empilant 
des pylones initialement dis- 
perses de facon aleatoire sur 
le terrain dejeu. Les pylones 
doivent etre alignes avec la 
source d'energie. Vous devez 
commencer la construction 
au niveau du sol- Les SPARK 
BUGS deviennent rapidement 
tres genants : lis ont pour role 
de detruire systematique- 
ment le travail que vous avez 
realise, lis s'ingenient en effet 
a deplacer les pylones vers la 
peripherie de I'espace de jeu. 
Lorsqu'un SPARK BUG depla- 
ce un pylone de la base du 
circuit, c'est-a-dire au-des- 
sous du niveau sur lequel vous 
"travaillez". votre action est 
bloquee. Vous devez alors 
descendre au moyen de i'as- 
censeur pour reconstituer 



le circuit. Les SPARK BUGS 
sont dangereux ; le moindre 
contact avec I'un d'eux vous 
vaudra une bonne decharge 
d'electricite. Vous avez nean- 
moins la possibilite. lorsqu'ils 
se font trop pressants. de les 
detruire a I'aide d'un eclair 
obtenu en appuyant sur le 
bouton de tir. 

Malheureusement, les SPARK 
BUGS que vous rencontrez 
sont differents suivant le 
niveau atteint. 

Au niveau 1, c'est un scarabe 
seul, 

Au niveau 2, ils sont dejatoute 
une bande (2 !) ... 
En ce qui concerne les ni- 
veaux superieurs, tout se 
gate : les SPARK BUGS sont 
indestructibles. Vous pouvez 
cependant les eviter grace au 
bouton de la manette. et a la 
condition que votre levier soil 
en position arriere. 
Le niveau de jeu change auto- 
matiquement quand tous les 
pylones sont alignes. La Vi- 
tesse augmente a chaque 
niveau. Ce jeu, qui peut se 
jouer a 1 ou 2 joueurs et neces- 
site les manettes de jeu, se 
deroule avec un fond musical 
qu'il est possible de suppri- 
mer. SPARK BUGS est un jeu 
d'un interet certain ou le gra- 
phisme et les effets sonores 
sont a la hauteur de I'ATARI, 
SPARK BUGS, commercialise 
par ROMOX 

P GLAJEAN 



suite de la page 1 



Les sprites 3ont geres par un compo- 
sant special possedant 46 memoires 
internes analogues a des bascules 

(ON/OFF) blocs. En effectuant un 
POKE dans chacune de cos me- 
moires (1 octet), il est possible de 
contrdler le dessin de sprite utilise la 
representation (classique) binaire. 
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ADRESSES 1MPORTANTES 
53248 

Debut de la 2one memoire alloueeau 
composant gerant les sprites (regis- 
tres). 
53269 

(53246 4- 21) octet contenant le 
numero du sprite avec le codage 
suivant : sprite . POKE 53260.1 , spri- 
te I POKE 

53269,2. Sprite 2 : POKE 53269.4, 
etc., c'est-a-dire la puissance de 2 
correspondant au numero du sprite. 
[.'utilisation de plusieurs sprites 
est mdiquee par la combination 
des codes respectits ox POKE 
53269,12 SPRITES 2 et 3 
2040 

Oebul de la zone allouee aux poin- 
teurs de sprite, (jusqu'a 2047). Un 
POKE a cot emplacement permet do 
specifier quel bloc do donnees 03t a 
utiliser. ex : POKE 2042.13 : 13' bloc 
pourle sprite 2. 
n*64 

Zone memoire ou sera stocke le des- 
sin du sprite ex. : 632 correspond au 
13* bloc. 

47 registres sont utilises (a partir do 
ladresse 53248). 

53248 Coordonnee X 

53249 Coordonnee Y 

53277 taille suivant X 

53278 taille suivant Y 

53279 couleurdos 

53286 sprites de a 7 ■ 




Le premier HEBOOGICIEL 
SOFTWARE pour APPLE II et 

lie est livre avec un emballa- 
ge de disquette reutilisable 
et un livret d'utilisation. il 
comprend 12 logiciels : 

BASIC et DOS. FRANCAIS 
pour programmer en fran- 
cais sur APPLE avec ou sans 
extension memoire. C'est un 
APPLESOFT en francais dont 
les mots sont redefinissa- 
bles ce qui laisse la possibili- 
te de personnaliser les ins- 
tructions et de creer votre 
propre langage basic en 
francais. Pour apprendre le 
basic ou pour 1'enseigner 
(langage machine). 

PROGRAMMATION STRUC- 
TUREE pour une program- 
mation simplifiee et clarifiee. 
Acces aux instnjetions 



WHILE WEND. REPEAT UN- 
TIL. IF THEN ELSE a I'aide de 
lampersand (&) (langage 

machine). 

MINI LOGO permet d'acce- 
der au graphisme tortue el 
aux procedures simples utili- 
sees par le langage LOGO. 
Les primitives sont adapta- 
bles. Ideal pour initier vos en- 
fants a LOGO. 

FONCTIONS SUPPLEMEN- 
TAIRES DE TRAITEMENT DE 
CHAINE. puissantes fonc- 
tions simplifiant la program- 
mation sur les chainesde ca- 
racteres. Plus de ASC 
(LEFTS(MIDS(AS,1.3))) illisi- 
ble, mais des fonctions clai- 
res comme GLR, recherche 
un groupe de lettres ou SCH, 
extraction de chaine avec 
critere d'arret alphanumeri- 



que ou MCH, modification de 
chaine par rem placement 
(langage machine). 

SAISIE FORMATEE DE DON- 
NEES. indispensable pour 
une bonne gestion d'ecran 
lors d'une saisie Permet de 
stipuler le nombre et le type 
de caracteres ainsi que les 
differents caracteres de 
controle. (langage machi- 
ne). 

EDITEUR DE PROGRAM- 
MES pour resoudre tous les 
problemes de correction de 
lignes basic : insertion, com- 
pactage. suppression, re- 
cherche de mots. etc. (lan- 
gage machine). 

GESTION DE CARNET 
D'ADRESSES. une gestion 
de fichier modulaire simple 



er affcace. woe prfeai 1 1 
tk>n des donnees sous forme 
de carte de vtsrte. 

BISCRU. un jeu de reflexes et 
dattention ou il faut evrter de 
laisser tomber les tartes du 
tapis rouiant Un graphisme 
eiabore digne des jeux de 
cafe! 

PARACHUTISTE un ,eu tf*- 
cade francais. Les paras 
comptenl sur vous pour ne 
pas tomber a 1'eau ! 

SOLITAIRE, un jeu classique 
au graphisme soigne 

Et ENQUETE. mi-cluedo mi- 
mastermind. decouvrez i'as- 
sassin. I'arme. le mobile et le 
lieu du crime parmi une foule 
de suspect 



BON DE COMMANOE A DECOUPER OU RECOPiER A ENVOYER A 
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PETITES ANNONCES 
GRATUITES 



VENDS Neufs. jamais utilises, 
logiciels americains pour APPLE : 
SECRET MISSION. PIRATE MIS- 
SION, ALIEN MUNCHIE.SARGON 
II et CHOPLIFTER : 300 F. CAN- 
YON CUMBER. SNOOPER 
TROOPS et FLIGHT SIMULATOR : 
250 F ULTIMA II et DARK CRYS- 
TAL : 350 F DOG FIGHT : 400 F 
et CHESS ODESTA : 450 F Tel. 
282.07.81 (apres 20 b). 

RECHERCHE ZX 81 avec exten- 
sion memoire 16K Faire proposi- 
tion a Christophe FOLOPPE au 
820.81.26 (lesoir). 

ACHETE interface RS232C pour 
Tl 99/4A Tel. (96) 41.81.16 Philippe 
LAPLACHE. 

VENDS Tl 99/4A 4- Cordon K7 

-fManette jeux 4- 2 modules 4- 
Manuels 4- 4 livres programme 
(Valeur 4000 F) vendu 2500 F 
Monsieur COLIN. 

VENDS ZX SPECTRUM I6K pal 
(sept 1963) -f 1 K7 jeu + 2 livres 4- 
programmes valeur 2100 F vendu 
1.850 F. s'adresser a Monsieur 
VAN ASSCHE Ronald 18. rue de la 
Cherasse YVERNAILLES 77720 
MORMANT 

VENDS ORIC 1 48 Ko partait 
etat 1750 F + 11 K7 : 600 F. Jean 
Francois SERRURE 76, ruo do la 
Chapelle 59190 HAZEBROUCK 

Tel. (23) 41.47.61 (apres 18 h) 

RECHERCHE pour Tl 99/4A mo- 
dule Basic etendu Pierre Yves 

BILLARD(6)086.10 93. 

CHERCHE drive P/TRS 80 mod. t 
avec ou sans DOS 40 p. 5" avec 
Alt. DACUNHA Ismael 11. rue 
des Cours Communes 92380 
GARCHES Tel. 741.98.80 (apres 
18 h 30). 

VENDS ou echange programme 
jeux pour APPLE II et lie TRISEUX 
200 F, ECHEC ET MAX 200 F. 
ALLIANCE ROMPUE 500 F, 
FLIGHT SIMULATOR AZFS1250F 
BISMARCK 500 F Michel 
371.84 31 PARIS (19 h a 2t h). 

VENDS Tl 99/4A 4- interface 
SECAM + cable magneto + 
manettes de jeu + synthetisour 
de parole 4- cassette speech 
editor 4- 6 cassettes de jeu 4* 
150 programmes do jeu achate 
decembro 83 (10 mois de garan- 
tie) achete 4000 F vendu 3400 F 
Tel. 372.32 96 PARIS (apres 18 h) 
demander Serge 

VENDS II 99/4A f Boitc Ext 4- 
Carte 32 Ko + controleur et 
lecteur de disquottes + edlteur 
assomblour materiel nov 83 le 
tout 6000 F Alain MULLARD 21, al- 
ien .J. Honour 93270 SEVRAN Tel 
38502.66 

VENDS Tl 99/4A avec unite dedls- 
quelle accompagneo de In carte 
d'extenslon, offrant au Tl une 
puissance 16K + 10 modul03 + 
paire de manette et cordon ma- 
gneto. LotoutdansmoubloToxas 
Instruments (1,80 m. sur t,20 m.) 
pour 6000 F (au lieu de 11000 F.) 
Fabrico CRETEAU 007.41.83 
(Paris) (apres 18 h). 



Vends NEUF jamais utilise HHC 
PANASONIC. BASIC MICROSOFT, 
rechargeur 110/220. AGENDA in- 
corpore. HORLOGE temps reel et 
FICHIER incorpores. manue! en 
francais. Vendu a I'epicerie du 
coin 5200 F. sacrifie 2500 F Tel ; 
780.57.60. 

VENDS SHARP PC1500 (02/83) + 
CE 150 + CE 155 (8K) + Assem- 
bler + 3 manuels + 5 livres + ac- 
cessoires + cassettes + Doc Tres 
bon etat valeur 6000 E vendu 
4500 F J.C. CARNET tel. (51) 
32.51.87. 

ACHETE Tl 99/4A bon etat avec 
manuel en francais + manettes 
de jeux Tl + magneto Tl + cordon 
secteur + parsec + FOOTBALL 
Faire otfres a Christophe MA- 
DOURG 8 rue des Rayes Vertes 
95610 ERAGNY/OISE tel. (3) 
464 4537. 

VENDS POUR ZX 8t : marque 
QUICKSILVA. carte haute resolu- 
tion 192 x 256 + 14 nouvelles ins- 
tructions graphiques prix 450 F 
carte sound (sonore) prix 200 F 
Carte mother board (carte Bus) 
prix 150 E ou le tout 600 F 
VENDS pour DRAGON 32 casset- 
tes : DONKEY KONG : 100 F. 
GOLF 100 F. FICHIER (en francais 
tres performant : 100 F). 
Pour PC 1245. 1251. 1401 interface 
cassette CE 124 prix 130 F Alain 
MEYER 45, me Claude Bernard 
75005 PARIS. 

VENDS Tl 99/4A (12/82) alimenta- 
tion, manuel d'utilisation, interfa- 
ce SECAM, cordon magneto, 
joysticks, revue Tl 99 n° 1 + PSI a 
la decouverfe du Tl + divers 
programmes 1400 F a debattre E 
POPARD 4. impasse du Col Bizien 
94240 L'HAY LES ROSESS Tel. 
350.94.75. 

VENDS pour Tl 9/4A boite peri- 
pherique + Contr6leur drive + 
unite disque interne + carte ex- 
tension memoire 48 Ko le tout en 
parfaitetat5000FG.VUILLAUME 
28. bd Jean Jaurfts 54000 NANCY 

ACHETE module Basic etendu 
pour Tl 99/4A (port compris) 
Gabriel JOLY 10. Square des 
Gaudronnes 92500 RUEIL MAL- 
MAISON 53881 36 (bureau) ou 
708 02 99(dom) 

VENDS SANYO PHC 25 + Cassot ■ 
to de demonstration + cordons + 
livrot d'apprentissage du Basic 
SANYO Etat nouf. Vendu 2000 F 
Slephane PARDO 4 bis, chemin 
du Bois de I'Aumdno 1301 1 MAR- 
SEILLE. 

VENDS ORIC 1 (48 Ko) (5/83) + 
cable PERITEL -f Alimentation 
PER1TEL + manuel + 3 livres + 
15 K7 do jeux 2100 F D. FABRE 
3, place des Poplnloros 77500 
CHELLES Tel 008 58 22 lo soir. 

VENDS TRS 80 (09/82) mod. 1 16K 
lov ll/lll l monitour-t- maanolo-t- 
transto + manuels + 200 pro- 
grammes + Documents + re- 
vues : 3400F contacter Monslour 
GASSMANN 17. rue des Fonds 
Huguenots 92420 VAUCRES- 
SON. 




VENDS COMMODORE 64 SE- 
CAM (Nov. 83) + TOOL 84 + ma- 
gneto VIC 1530 + 1 joystick + jeu 
MOON PATROL + decouverfe du 
COM. 64 Pnx 4000 F Louis BEN- 
ZAQUEN tel. 82814.35 (apr6s 
18 h) ou 234 65.32 (bureau). 

VENDS Tl 99/4A (garanti jusqu'a 
07/84) + prise PERITEL + alimen- 
tation + pairo manettes do jeux + 
cordon magneto + 2 logiciels do 
joux PARSEC Ot ALPINER + livr os, 
lo tout 2000 F tel. 074 54 67. 

VENDS ZX 81 sous garanti + oxt. 
16K + magn6to sous garanti + K7 
jeux 4- livres. le tout a 800 F Jean- 
Claude ROULIE tel 799.22.60 
apr^s 19 h, 

VENDS pour PC 1500 module 4K 
RAM CE 151 : 300 F Manuel langa- 
ge machine SHARP : 150 F As- 
sembler Dfisassembleur sur 
cassette : 100FCENDSmicropro- 
cesseur 2650 sign6tics avec mo- 
niteur en ROM et doc : 100 F.Sboi- 
tiors 2t02 : 100 F 8 boitiers 2111 : 
100 F.contr6leur FLOPPY FD 1791 : 
150 F P GARRIC residence Pare 
de Capeyron Bat LIS.TRAC C 
33700 MERIGNAC tel. (56) 
97.19.42. 

VENDS Tl 99/4A + basic etendu + 
manettes dejeux -F supermagno- 
to philips + cable cassette + Tl IN- 
VADERS 4- manuels 4- livres 4- 
programmes, le tout pour 3.900 F 
sous garanti Jacob 8ABSI 3 ruo 
Bleue 75009 PARIS tel 
824 58 59. 



ACHETE POUR Tl 99/4A modulo 
Basic Etendu + module mmi-me- 
moirc 4- TI-CALC (module) 4- Ges- 
tion Priv6e I'Extension 4' Module 
jou PARSEC Philippe DE LAGAR- 
DE 10 bis rcmp.irt Tlwaud 16000 
ANGOULEMEtol (45) 3810.64. 

VENDS ORIC 1 48 K du 6/83 4- li- 
vres f 200 progmmmes divr-rs 
VENDU 2700 F M POTIER Mtchol 
42 rue Volt.iire 94190 V1LLENEU- 
VE ST GEORGES 161. 389.6244. 

VENDS Tl 99/4A 4- rack pcripho- 
nquo f Tl extension memoire 
32 K4* Tl lecteur disquo interne 4- 
systemc carte controleur 4- carte 
interface RS232 4- basic otondu 4- 
module et logiciel suivant : ges- 
tion do fichier /gcstiOiuleiapporf 
modulo aventurc / traitoment do 
toxto fichier adrcssos / jeux d'on- 
treprise / lo basic par sol-mflmo / 
consoil flnancle? ' pimtt? ndventu- 
ro / adventuroland 4- livres jeux et 
programmos Tl 99/4A tomo t ot 3 
/ 50 programmes Tl 99/4A de J. 
Benord au 6ditions Radio 4- impn- 
mante Selkosha GP 100A t cablo 
+ magnetophone K7 + cable. 
Ce ma16ricl est nouf pratiquo- 
mont jamais utilise. 
Ecnro pour ronsoignements A : 
Sorge COULON 35 me Hermel 
75018 PARIS tel (1) 262 89 99, 

VENDS Tl 99/4A unite contralo 4- 
2 manettes joux 4 X BASIC 4- LA 
CONDUITEDUTI 99 4- livro INITIA- 
TION AU LANGAGE ASSEM- 
BLEUR TI99. Prix 2980 F P PRAN 
DU6I 547 99 85(nnros19h30) 



Des programmes pour votre ORIC ! 



Votre ORIC 1 est gourmand ? Allmontoz-le avoc des program- 
mes originaux, simples, toujours possionnants et souvent sur- 
prenants. 

Du Jeu de reflexion classique (Tours de Hanoi, Pondu, Color- 
mind, Awele, etc.) aux utilitairos porformants (Gonerateur de 
Caracteres, Tri, Calondrior, Histogramme, etc ) en pnssant par 
los Jeux de reflexes (Terroric. La Plume el le Poussin, Lobyrin- 
the, etc.) les jeux d'attentfon (Damos, Rotations. Enigmos, Cot- 
Ire-fort, La Reine, etc.) ou do hasard (Pokor, Quinze-Vainc. etc.) 
et sans oublier les methemetique* (Fractions. Nombres Pre- 
miers, Traceur do Courbes. Multiprecision, etc.), Jeux ot Pro- 
grammes pour ORIC 1 offro un largo 6vontail do programmos 
aux couleurs. graphlsmos ot sons tr&s soign6s. Jeux et Pro- 
grammos pour votre ORIC t : une mine d'or pour votre ORIC 1 ! 
Cola vous coutera 155 francs chez les bons rovondours ou di- 
rectement avec le bon de commando ci dossous 



IIONIM COMMANDI A OrCOUI^.n OU RECOPIER A ENVOYER A : 
SHIFT EOfTtONS : 27. o» du GENERAL FOY. 75006 PARIS 

Nom'Ci*nom - 



PRIXUNITAIRE.IMiF 

contro-fnmbounwmBol ■ f inncn f 20 V I I, rtlmnom t DIM 
REGLEMENT JOINT .OOF DATE: 

ch«qu«n CCPLl SIQNATUHE: 



3 



MINI-DICTIONNAIRE D'ACCORDS 
POUR GUITARE 



Mini-dictionnaire d'accords pour guitare. 

Mette2vousd'accordavecvotreORICetvouspouvezap- 

prendre a jouer de la guitare. 

Remarque : 

La guitare n'est pas fournie avec le programme ! 

Francois HIRSCH 

Mode d'emploi : 

Un tableau des accords proposes es! presentesur 1'ecran. Apres avoir 
fait votrechoix. I'accord setectionne esl dessine pour les positions dif- 
ferentes Pour revenirau tableau, appuyezsurunetouchequelconque. 
Chaque accord est joue pendant 5 secondes. 



> SEH AFF1CHAQE I 

> PLOTia.n.-nm: 

) PLDTI2, 17,*P0M 



3,13,'0-*CCOBBS- 



_*30 
_2*0 
_27(> 

_2tro 

_2«0 
-300 



_330 

_3«o 

_330 
_3AO 
_370 



Jl-TiSL'.*U I 



> eu«WOV7,0,0:ME>< 



_«-::o mm 111 1,1 



_300 D- ASCII 






o** cA 



_320 C 
_323 ( 

_3«0 1 

_330 k 

_3*0 T 

_370 « 



_A40 
_630 



UHHQV-7, lO.O: NEXT 



C-ASCI>11WID»,f 



_720 CUBHOV7 , c 



_B10 FOPP-11 
_920 »-Wl 
_flSO C-ASCI* 



_a?o cubmou?,o,o:chai 

_8flO CUB"fiV 14, !?.•>:* 

Jgn HMM rjM, r;-,,o 






i:CUBKOv7,O,0:CMA»7ft,( 



■ -BH'OUN*-".".'" I "" NIC ■ I 



fES:PAPE07:I> 
!0!T-13:OOSUl 



IVO 


CUBSE 


HO, MO II 








;:.:; 


^::', 


mjmumi**,a, i 


2«0 


IfH*- 


c- thcnjooo 






CH-IMEN7300 


-■!.-, 




D-TMCKSOOO 






Dt"*1IIEN3300 


320 




e* memooo 


J«o 




EHMHEN43O0 






FTHEH3000 


380 




f»'[l*W500 


■*00 


IFKV- 


OMHCN400O 






_220O PLAY7, 



_2300 CUBSET 



_23B0 1 



2:F0BX-^OIO3OS7{ 



_2fiS0 PLAY7,C 
_2700 GEtO»:C 







_3330 CUBSeM93.7,0:CHAB33,0, I 

_33fiO CUBSEMV0,lO2,0:CHABa9,0. 1 

_J370 CUBSEr200,102,O:CMABJB,O, 1 

_33B0 Y-22:FOBX-170taiH06tEP10:GI 



_*03O 

_«o»o 

_*070 



> GEIO»tOOT02AO 

) CIJRGEtl 13, I 13,0:CHA««» 

, CURMTM,r3 > OlCHAMS|0 

) cuB£Eiafl, , »v,o:c»*0'ie,o 

) CUBSET«3,7,0:CHAB19,O 1 
) CUHHT40, L(I2.0:CMAB32,I 
CURSE I LV3, 7, O: CHAR33 , O 
CUB5ET193, 102,0:CHAB37 
T-22: F0B*«3OT0220StePl 

fo»x.i70ioh)09tepio:oo< 
0bk-30t040btepi0 



--.,■: I 



'<m)71< 



j:oohuhioooo 

1 F0BX-3OTO70STEP20:a0SUB10O< 
) FOBX>190TO2l0SrEP10:0aSUBI( 

i v-i.17:«-ao:oosu»ioooo 

i T-ifia:FO»x-30to220BrifPi90:( 
. wimi.1 ,9,9, io 



_«3SO CUR5C.I43. lO2.0:CKAR3O.O. 1 
_4340 CUB5EI1SS. 7.0:CHA*31 ,D, I 
_4370 CURSET1V9, l02,0:CHAft33.O, I 

_43»0 I"37:FOB*-30TO*OS?EP10:GO« 

,.4*10 r-32:F0BX-l»OTO2ie>STEP2O:( 



J MUSIC3.3.12.1 



_3O40 FOBX-1 

_3070 FO«X-2i 

_3OS0 Y-371X 

_30V0 r-32:FI 



-n.v'^'Siiiooo:NEm 



_3330 CURSET1*: 
_3S40 V-221FOB: 
_3330 roBX-201072 
_3360 Y-37:X-20O: 



_33BO FOBX-I90T021O6I 
_340O FOBX-30T0220STI 



_3640 HUSK 






T*3,7,0:CHAB4»,C 



);oosumoooo: f 



_«30o cuBsen 



_«3J0 GUSSET 



CUBSE T700, 102, O: CKAR48, 
!2:FOBX»30t070S[EPIO: 

ix-20tO220StEP20o: oat 



iimiMi iMDn-n'.iUMi 



..(1620 1 
_«4«0 I 



I tURBFI«a,V2,O:CHAB4B,0, 
I CUBSET2*,«7,O:CMHB4(l,0, 
I CURSGT43./,0:CHAR4V,0,I 



(IIII.'.'.IMI I'll 



■7: fcjhx- inoionooiKPi 

I7;FDBX-40T0A0*TEP1< 

x-7oorD72oslEP7o:ao; 
^OlDOEUilOOOO 



■ U»10000iN*XI 



Sttlt9 pS0fl '- f 



MONKCHA 



Retour aux sources, cette semaine avec MONKCHA. le 
petit singequibonditdeliane en lianeetdeplateformeen 
plateforrne pour atteindre les etoiles. 



lO CALL CLEAR i t PRES-0 

90 00)0 2 30 

100 FRES-I 

HO DISPLAY ATI! 

: -i> at<; 

e . ■■ 

EVfAl.Bl.CIllI CF NOT CI IMEN 140 
■".:nAF.'M2. 12.32.9.,, CALL HCHARI20.1.' 
lfiO DISPLAY AT (3. li . -REGARDS* LES REGIES BUR" 
170 01 SPLAY AH7.9): 'HEBDOGICIEl.- 
19-> DISPLAY AT (20, 1)1" ENTER POUR CONTINUER" 

'.JF. 2270 
.-'".' CALL KEV(Al,Bt,CI>ll IF NOT CI THEN ZOO 

210 initialisations 

, clear 

230 V-l ir X-160 II V-32 :. VIES-3 >i CONT-O i 



Volte rdle esl deguider le petil singe de plate'ormeen platefarmeet de 

liane en llane tout en le preservanl dune rencontre avec un oiseau ou 

un cscargot Le jeu esl decompose en trois tableaux ayant chacun un 

decor Entre chaque tableau vous autez droit a une pause pour vous 

reposer 

En clair, il vous (audra pour chaque tableau aller dans lecom superieur 

droit de I'ecran (dans le premier tableau il taut se placer a droite de 

I'etoile qui se Irouve en haul a droile). 

Pour le deplacement en lui-meme il va talloir lire attentivement les 

lignes qui vont suivre : 

Deplacement sur terre : 

- Touche K . deplacement vers la gauche 

- touche L : deplacement vers la droite 

- barred'espacement:lorsque vous appuye* sur cette touche. le singe 
va sauter en fair puis retomberquelquessecondes plus tard Vous pou- 



CALL color c 



call color 113,2 



: NEX 



GRO 



CALL CHAR!41,"OF1F3F1FOF040000"I 



'3, 1,43,44) 




l,B|U,J)ll CALL HCHARI 


14, 16,33,7)11 CAL 


1,371:: CALL HCHAR(14.I 


1,30)11 CALL HCHA 


3,33,28):: CALL HCHARI 


11,4,34,29):: CAL 


1,41)1) CALL HCHARM, 1. 


35,32):: CALL HCM 



240 CALL MAGNIFY(3)i: x-160 :: V-16 

250 ' COULEURS 

260 CALL CLEAR li CALL COLOR 1 I . 3, HI ! i 

ALL SCREEN (3) 

270 FOR GRO-3 TD8 II CALL COLOR <QRO, 

290 ' DEFINITION DES CARACTERES 

290 ■ GROUPS I ET 2 • 

300 CALL CHAfi!34,"BBD0FFFFFFFFFFFF"> 

310 CALL CHAR(33.~98DDFFFFFFFFEE44")i 

320 CALL CMAR(36,-FFFFFFFF772200O0")i 

HAR138, "80COE0FOF8F0E04O39") 

330 CALL CHAR(40,"OOOOOOOOOQ000207">1 

HARI43, "FFFFFFFFFFFFFFFF") 

340 CALL CHARI62. "3C7EFFFFFFFF7E3C") 

350 CALL CHAR(46,"0l0307OFOFO7O301"> 

360 ■ GROUPE 13 ■ 

370 CALL CHARII29, "O1020102O102OI02") 

380 REM FOND • 

J90 CALL CLEAR 

400 CALL HCHARi22,l,33.321 : : CALL MO- 

410 CALL HCHARM 4, 1,33,4):: CALL MCM* 

L HCHAR114.26.33, 3J 

430 CALL HCHARM4,5.J8):i CALL HCHAR(14,B,37: 

R(14 f 16.37) ■ ■ CALL HCMAR(14,23,3B) 

430 CALL HCHARI 14,29,38)11 CALL HCHAJ 

L MCMARI 14.24.37) 

440 CALL MCMAR.10.4.40):: CALL HCHAR 

AR 12. 1.36.32) 

450 CALL MCHARI17, 1,36,29):: CALL HCHARI 16, 1 , 35, 29) , , CALL HCHAR 13, 30. 42) 

460 ■ LI AMES • 

470 CALL VCHARM1.3O.0, 10):i CALL VCHARM 1 , 24,0,2) i i CALL VCHAR M 1 , 14.0, 2 

L VCHAR MI, 12,0. 2) 

480 CALL VCHAR(11,6,0.2) : : CALL VCHAR (2,2.0. 10 

AR(2.6,Q,7):i CALL VCHARI2. 8, 0, 3) 

490 CALL VCHAR(2,10, 0,7);i CALL VCHAR 12, 12, 0,6 

HAR12. 16,9,4)11 CALL VCHAR (2, IB. 0,5) 

SOO CALL VCMARII.ro. □. 6> ; : CALL VCHAfl(2. 22, 0, 7 

HARI2.26.Q.5)!: CALL VCKAR(2. 28, D, 4) 

510 CALL VCHARI2,30.Q,4>:: CALL HCHARI3, 30, 42) 

520 • FRUITS 4 

530 CALL HCHARMB.IO.62) i -. CALL HCHAR ( IS, 14, 62 

340 GOSUB 2260 :: GOSUB 2310 

330 • 

SAO ' FORME DES SPRITES • 

570 ■ 

390 CALL CHAR1136.-03070SO702033F7F6F6F4743E3C2O20ECOE0AOE040COFCFEF6F6E2C2C7434 

590 CALL CHARM40. "C3C76337323F1FOFOFOFO7O7OEOCI830C3E3A6EC4CFCFBFOF0F0EOE07O3OI 
OOC'I 

600 CALL CHARMO4.-OO0OO103071FlFlF0FO7OTO77Fr.F7FO0r"JFFFEFCFaF0E0C0e000H0FlFFFFC 

301") 

610 CALL CHAfiMO8."00FF7F3FlFOF07G30I00OIBFFFFF0380OO0OBOC0E0FBF8F8F0E0C0EOFEF3F 

620 CALL CHARM2a."OO3B7CFCF6FFFC7£387C7F7C7C7C3F]FOOIEI20206O4446O644OCOOOO143F 

FFF-) 

630 CALL CHARM t6."0O0O00OOOOOOOEIF3F7F7F3FlFIF7FFF0O000000O0104B2492CA££8BOFS4P' 

EFC") 

640 IF PRES-O THEN 100 

650 ■ 

660 ■ P0S1T0N VITESSE * 

67'' ' 

6B0 CALL SPRITE 141. 136.9, 160,32) 

690 CALL SPRITE'*!'. 104, 16. 13. 16.0. -VI :: CALL SPRITE !«3. 104. 16. 13, ISO. O. -V) 

DLL 8PRITE(44,10S,6,33,l00,O,V*5> t: CALL SPRI TE (45, 108. 6. 33. 200, O, V*5> 
710 CALL SPRITE'46, 104.3,30, 190. 0.-V-3I 

7Z0 CALL SPRITE!47,104.14.B8.3O,0,-V-I):i CALL SPRITE '49. 104, 1 4. BB. 150, O. -V-l ) 
730 CALL SPRlTEtr7.U6.lJ, 112,150,0. V*2)(l CALL SPRITE (4 10. 1 16. 1 1 , 1 12. 240, O, V*2) 
740 CALL SPRITE (411, 104.9. 14O.2OO.0.-V-3I 
750 CALL SPRITE <» 12, 1 if..*), 160.90,0, 15) : : CALL SPRI TE 1413, 1 16. 2. 160. 16O.0, 13! 



T\-99 4/A 



CALL VCHAR(2, 4, 0,5)11 CALL VCH 
CALL VCHARI2, 14,0,7)11 CALL VC 
CALL VCHARf2.24,0,6):i CALL VC 



CALL HCHAPM8 



IB, 62 



7*,.. 



770 IF CONT-O THEN 790 
7BO C-l 

790 CONT-CONT-H 

eoo ■ 

BIO ' SOUCLE PRINCIPALE 

B20 ' 

S30 CALL KEYCO,K,U : : IF L-l THEN CALL SOUND (30. -3, 2) 

340 IF "'-69 THEN 960 :: IF K-83 THEN 1030 11 IF *>32 THEN 1310 

OBO :: IF K-73 THEN 1190 

B30 IF K-76 THEN 1250 :: IF f-BB THEN 1130 

06O CALL POSITI0N<#l.)ri,Yi)s: IF XK23 AND VI >230 THEN 870 ELSE 920 

870 CALL DELSPRITEfALL):: GOSUB 2270 

990 P-P»500 : : GDSUE- Z^hO 

890 GOTO 1590 

?'.''• CT-o ■ ; >V! : j F-4 

910 IF C-3 THEN 390 :; IF C-l THEN 1790 :: IF C-2 THEN 2020 

920 CALL COINC(ALL.D)! I IF THEN 1 360 ELSE 830 



940 ! 



SOOT 




960 l-l-\K :■ JF IH rHEN 1330 : ■ 
■ PATTERN (41. 1401 : : CALL I 
990 IF D-' 129 THEN 990 ELSE 920 
9*0 "'-if, t; if OIU ntEr; 1340 
COLL r ir.Mf-R' [X*16)/B,Y/B.Z)ii IF 



CALL L0CATEI41, 



1010 



D QAUCHE 



.,.-.-, ,. 


-V-l 6 t 


% IF /■ 


16 


rnCN 13 


1" : 


; CALL PATTERN. 


CAj i 


GCHAR ( . 


/B.Y/B. 


n : 


! IF Z- 


174 


mm ■>: ■■ 




040 ' 


•X*16 : 


: IF t 


170 


fHEM l 


■a., 


1 I CALL LOC' 


ilF ■ 


'B.Oli 


1 IF D« 


'.2 THFn 


I04O ELSE 


MO 






D 


DRDJTE 












:,./., ■ 
















-.;,. , 


-V*16 i 


: IF ' 


240 


l«fN I 


*■ ■ 


i : CALL RATI 


Fl-r 


CALL 


OCHAft • 


x/e.v/B 


. 1' 


: IF I 


■ i : ■' 


I.'Frl 420 





CALL GCHAR( 



CALL LOCATE 1 4 1. X. VI i 
CALL OCHAR< (XM6J/8.V 



11M 


X-X-16 II CALL L0CATE'4I 


,x.vi i i Goto 930 




1 I 70 


D GAUCHE SOL 






1 190 
12'.f. 
1 2 I D 

'a. i 


V-Y-I6 J: !F Y< 16 THEN 1 
CALL GCHARl IX. 161/8. Y/B. 
X-X-16 : : IF / I?.. THEN 
HI IF l-Z; OR I-'-, THEN 


110 ;: CALL RATTERNI4I. i;6> 

an if ;-;; or 1-129 fK£N 

1340 il CALL LOCAII '•!.'. '< 
920 ELSE 1210 


II CALL LOCAIEO 
1210 ELSE 920 

: i f.i i li :;■•■- ■ 


1230 


D DROITE SOL 






;■;::: 


Y-Y'16 n IF V 240 THEN 

CALL GCHARi • I • 16) /B. V/9. 


1320 i: CALL PATTERN <4 1,136 
Z):l IF 7-32 OR Z-129 THEN 


'1 : CALL LOCATE 

\ . "■ ii -.i ■>:■■ 



1270 


«-X*l6 i: IF * I/O THEN 13' 


/B.ZI 


:: IF 7-33 OR Z-35 THEN 92- 


1280 




ir°" 


SORTIE O'ECRAN 


1300 




1310 


V-V*I6 n GOTO 920 


1320 


V"V-I6 II GOTO 920 


1330 


X-X.16 :: GOTO 920 


! 34. i 


X-X-16 :: GOTO 920 


I3SO 





vet vous en servir dans deu t ( 

- I . pour sauter par dessusunescargotouunotseau.maisattefilioft* 
singe ne reste par longtemps en law Cesi-a-dire que si vous saulez p«r 
dessus un animal qui n'avance pas vKo, vous lui relomberei doss-js 
avant qu'il soil passe 



En ce qui concerne letape inter tableau il vous faudra de-crocher les 

quatre pommes a laide des touches 1. 2. 3. 4. et les fatre tomber sur 

le smge. ce qui vous donnera SOpomls (attention les tableaux passent 

et la vitesse augments). 

Un dernier petit conseil. pour le 2° et 3° tableau faites preuve d 'un jeu 

de ruse et nayez pas peur de sauter dans levxJe pour parvenir a> vo» 

fins. 

HLL LULHitiai. ■,•>:■ CALL GCxARt < x»16> /9. v 



1360 ' SINGE 8LESSE 

1370 ' 

1380 CALL PATTERNI41.124):: X-160 :: r-16 

1390 CALL S0UN0C300. 415,0) 1: CALL SOUND! I0O, I 10, 30) : : CALL S0UNOI30O. 349, 0> I : CA 

LL SOUNDUOO, 1 10,30) i : CALL SOUND! 100O. 270,0) 

1400 VIES-VIES-1 ■■ IF VIES-0 THEN 2330 

1410 GOSUB 2310 

1420 FOR Tl-12 TO 13 !1 CALL DELSPRI TE <«T t ) i : NEXT Tl 

1430 CALL LOCATE (41, 160. 16) I! CALL PATTERN14 I . 136) 

1440 IF C"l THEN 1450 II IF C-2 THEN 1460 11 IF C-3 THEN 1470 

1450 CALL SPRITEI412, 116,2, 160. BO, 0.15)i: CALL SPRI TE (■! 3, 1 16. 2. 160, 160.O, IS) : i 

GOTO 920 

1460 CALL SPRITEI412, 116.16, 160. 50,0. 13) i t GOTO 920 

1470 CALL SPRITEi412. 116. 16. 160. 40, O, V*10l : i CALL SPRITE (413, 1 16. 16. 160. »20,0,V» 

101 : t GOTO 920 

1490 ■ 

1490 ! SAUT SDL 

150O ! 

1510 X-X-16 :: IF X<B THEN 1330 :: CALL LOCATE (41 , X. V) t : CALL PATTERN(4l , 140) 

1320 FOR 1-1 TO 12 ii CALL GCHAft i X/S. V/B.D1 I i IF D<>62 THEN 1540 

1330 CALL SDUND130, SOO. 0.350,0) : : COLL HCHAR{X/9. Y/S. 321 : I P-P'lOO i; GOSUK 2260 

1340 CALL COINCtALL.D) :: IF D THEN 13BO 

1550 NEXT I :; X-X*16 II CALL LOCATE (41 , X. V) : i GOTO 920 

1560 ■ 

1S70 ! FIN ETAPE 

15BO ! 

1390 F-4 :: CALL I 

1600 CALL CHARM i: 

FaCO" ) 

1610 FOR 1-2 TO 5 :: CALL SPRITE!! 

1620 CALL M0TI0NI46,0,V*I0) 

1630 CALL KEYtO.A.B):: IF A-49 THEN 1650 li 

70 I I IF A-52 THEN 16BO 

1640 CALL RATTERNT46. 140)11 FOR D-l TO 20 i 



11, 112,9. 10, 



TO 1630 



NEXT t 

F A-50 THEN 1660 II IF A-31 THEN 16 
NEXT D It CALL PATTERN(46, 136) i : GO 



1650 CALL HOTI0N(42,25,O)ii 1-2 II GOTO 1690 

1660 CALL H0TI0N(43,25,0)u 1-3 il GOTO 1690 

1670 CALL MOTION!44,23.0)II 1-4 :i GOTO 1690 

16BO CALL MOTI0N(45,23,O) : i t-3 

1690 CALL COINCtALL.D):: IF NOT D THEN 1720 

1700 R-P+200 :: GOSUB 2260 :: G0SU8 2320 i: CT-CTM 

90 



IF CT-4 THEN 1710 ELSE 16 



1710 VIES-VIES*! ii CALL DELSPRITE ( ALL) : i GOSUP 2310 :i CT-0 

1720 CALL PATTERN!46. 140):: FOR D-l TO 20 ii NEXT D 

1730 CALL PATTERN146. 136)1 : CALL P0SITI0N<4I , X3, V3) i i IF X3< H 

1740 CALL DELSPRITEI4D n F-F-l :: IF F-0 THEN 900 ELSE 1620 

1730 CALL DELSPRITEfALL) I I RETURN 

1760 ■ 



1770 



1800 



TAB 2 

ISUB 2270 i 
MJITS 



160 I 



V-240 i 



C-2 I 



CALL 



LEAR 



I CALL HCHAR !( 
II CALL HCHAR f If 
1 CALL HCHAR110, 

42.BO.0 



I CALL L0CAIEI41.X, 
f 11 II CALL HCHAR (I 
HCHAR (19. 26.62) 



>4.7. 130, 20O.0.-V-1) 

CALL HCHAR(18.4,33,6) i t C 

CALL HCHAR ( I 4 , I . 33 ■ 6 ) I I C 

I)!! CALL HCHARM. 7, 33,26)11 C 

: CALL VCHARM2. 12,0,3)11 CALL 

CALL VCHARU2.22.0.6): i CAL 
i CALL VCHARI6.30.P, 1 1)1 ! CAL 
ILL SPRITE("1. 136.9. I60, 240) 



160,321 



NEXT II 
: : CALL HCHAR (20. ! 
CAI i HCHAtK14,24 l 

1 i CALL lir.HARCi 



■■I 



. '.■■■! 



1B10 FOR II-B TO 26 STEP 2 

62):: CALL HCHAR ( IB, 14, 62) 

1820 CALL HCHAR!19,22,62)l 

1830 ! ANIHAUX 

1840 CALL SPRITE(42, 

1B50 CALL SPRITE!44, 108, 13,65. 120.0, 

LL SPRITEI46, 104. 7, 90, 90.0, -VI 

I860 CALL SPRITEI47, 10B. II, 106,64.0, 

1870 CALL SPRITE(4B, 104. 7. 130, 120.0, 

1BB0 CALL SP-RITEI412, 116, 16.160,50,0, 13) 

I890 ' FOND 

1900 CALL HCHAR(23, 1,45.64)1 i CALL HCHAR(22. 1 . 33. 32) 1 

ALL HCHARM9.4.36.6I 

1910 CALL HCHAR! IB, 18,33,6)11 CALL HCHAR! 19, 18. 36, 6) i 

ALL HCHARM5, 1,36.6) 

1920 CALL HCHAR(t0.6.35.24)i: CALL HCHAR I 1 1 , 6. 36. 24) i 

ALL HCHARI5.7.36.26) 

1930 CALL HCHARM, 1,33. 32) 

1940 CALL VCHARM6,2,0,3) : i CALL VCHAR! 12, 10.0, 6) i 
VCHARM2, 14,0,3) 

1950 CALL VCHARM2, 16.0.3m CALL VCHAR ( 12, 18. 0, 6: 

L VCHARM2,24,D,3) 

I960 CALL VCHAR(12,26.0.6>:: CALL VCHAR (12, 2B, 0.6) i 

L VCHARI2.2.0. 12) 

1970 CALL VCHARI2. 4, 0,3)11 CALL VCHAR !2,6. O. 3) : : CAI 

19B0 GOSUB 2260 ii OOSUB 2310 1: GOTO 810 

1990 REM 

2O0O REM TAB S 

2010 REH 

2020 GOSUB 2270 1 I C-3 

2030 CALL DELSPRITE(ALL))! CALL CLEAR :: CALL SFRITI 
2040 ! FONO ET FRUITS 

205O FOR 11-8 TO 26 STEP 2 :t CALL HCHAR I 16, 1 1 , 621 i 
2060 CALL HCHAR(23. 1.45.64) i : CALL HCHAR (22, 1.35.32 
2O70 CALL HCHrtftll4,6.35,4)i! CALL HCHAR (15. 6. 36, 4 ) i 
LL HCHAR!13,24,36.9) 

2080 CALL HCHAR (12, 10, 33.6)11 CALL HCHAR MO, 16, 33, 4 
LL HCHAR17. 12,33,4) 

2090 CALI HCHAR (4, 1, ',. S) 1 1 CALI HCHARtS. 3,36,3) 

21O0 CALI. HCHAR(4,28,33,4)i: CALL HCHAR IS. 28. 36, 4 ) r : CALL HCHAR ( 1 . "l .'. 35. 71 I I CAL 
L HCHAR (3, 17, "(j. n 

2110 CALL VCHAR!!. 2, 0. 19)11 CALI- VCHARM 
CHARIB. 12.0,3) 

2120 CALL VCHAR(B,I4.0. 3): i CALL VCHAR « 
CHAR16.22.0. 31 

2130 CALL VCHARI2. 26,0, 10)11 CALL VCHAR M . 2.0, 2) 1 : CALL VCHAR M 
2140 GOSUB 2260 II GOSUB 2310 
2130 ' ONIMAtlX 1 

2160 CALL SPRITE <•?. 104.2.24. I0O, O, -V-2) I I CALL I3PRI IF. (43, 104, ? 
2170 CALL SFRITEI44, IOG,3,49.40,O,Vlii CALL 5RRI IE (45. 108, 5. 48. : 
2180 CALL SPRITE <"6. 108. M ,80, 80, 0, V*2) : i CALL BPAITE(«7, I OB, 1 1 . BO, I 50,0,V • I 
2190 CALL SPRITE (49, 104, 13, 104, 120.0, -V-101 
200 i Al i BPRITE (49. 104,7, 128,30.0, ■/ Mil CAU BPAITI (• JO, 104,7, I tt, 190,0, V i 

221" CAI I. SPRITC 14 1 .'. 1 16. 16. 160.4<-|. <...'/• !■'• ! : CW I '.I I- I M (»l . . 1 I f- , 1 t. , 1 (,■ - . 1 '...O.V 

10) : i C-3 

2220 X-160 II y-32 :: BOTD ■"/■< 

■ ■■ ■ 
.■.'4.1 ' 'IDII'. PROIir-AHMFSl M I.I.I . NU8I0U 

. ■'.■■ ' 

2260 DISPLAY AT(23. I6)fll IE (16) I "POIMTfl— |P i: RETURN 

2270 TOR n- ii" TO 990 BTEI 30 M CALI BOUNOMOO.f 1,9) 1 1 MEXl ' i 

i. i ■ i TO 16 ii CAI i BCR1 ENIT21H NE * T 12 . ; CAI I BCRI BN(3) 

2290 FBR FI-990 10 110 STEP -30 II CALL SOUND! 100, F 1 , 3) i : NEXT Fl il CALI BOUND 

i 10,2) 

100 m TURN 

10 DISPLAY ATI . I BtIEI7ti "VII B-'lVItB n return 
aOUNOnoo.110,0111 CALL BOUNDM00 ( aS0,0tii cam. B0UND(IOO,I1O ( O)ii i. i 

III. 'I 

m i in i Bl Rl ii '..i L)ii RANDOH] :i 
MO OOSUB .■ "■ i ; OOSUB 2310 
ISO ' 

■ Ai I II HA* i'i i IN 
J 170 ' 

BO > ' ■■ . ii 

2390 LAM '.Fl.l T( HI. |.l... !(.'l|..r., . I ,■/■ . I .1. J , If) | ■! ril.i..|.M .-. ..".. I /.■•:, I. fill. NU .■.'.[■ 

|NT(RNt>'4.S) -'- ■■• I ■- -■ DNIRND .9)) 

2400 HI M I 

24IO DI1 V Afll2, ■< ■- -hoi Aim, i i ,-,i-i n >" 

* " - n ■■!. i 'VA! r <••■. r i ■ "ON ■ ' Bl I I 8IJEMHR* m H r.*-"ii" run iimm 

I' GOTO 230 _ 

■1 ■" i .'• "I- . i OOSUB 2270 i i '.M" ™ 



■ I I CALL HOidl 14,17, 19, 

CALI VCHAR ( 10.8, O, 3) i : 

CA) i vr.iirtR(6, 20,O,3)ti 
,. 10,0.91 

1, ■■'.■ . 



MULTI-PUZZLE 



Multitech MPF II (ou APPLE II) 

Lecon du jour ; multiplications. 

Retrouvez quels chiffres se cachent derriere les 5. et re- 

constituez la multiplication. Un excellent exercice pour 

toute la famille. 

Michel ZINDY 
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.-. :-:: --•-:-.■: 




. .' »ei -"-:.:■;.-: 




N :: .: -:■: -■:■ - -—;-: 




-.-_'-- 1 . - 


IMC M 


----;-: ■ ■;•:;» 


!F S* 


-■-; ; i ■- r»*EM 62 


:• -i ■ :- --;-. 29 




M r«il 9 -'-• 13 PRINT -U 


REUOH 


»e em 




ioo -I ■ •■•••multi-puzzle*"* 




na re ■ wiiii re m 




1 ig ■ ; v . i< ro 5 • x Si"£' 




116 El ■ PUDS <K* X. 1 ) 




I'M ; --a? v - i point 


3i 


HTAB PfftNT 




-.-.-- «c<t y,ji 




1 Jfl :-"- ;■:£. .-:•.-: rses 




• . :-:■:■:■. - :-: .- -: enne 




l«8 :-■- ■■■: £■■ IS - ■• BESSCUi 


; :-: u 


Enne - -: ■:-: .-: 




:?r -•:-.--•. 




24fl —:~ ;-:■■-:- --; ;-■ Pt ::_-: 




F"0S ■ I T.; 3 FOS J » 1 


ro si 



. fO 3-Fi I 



ie < -■■:';> 



- :- 



- : : I Mil N<4 - «a.2 
N1 ■ * N<2> 

FQH I - I TO 3 
■ s T-] J HI ■ INT <N<J> 



[NT ■ N< j 



HI 



HEXT . 
-.»-?« - I HI 
- NZ • 3 Nfl ■ 
?! FOR [ ■ 1 TO 3 FOR } • t TO 3' 
IF (KI.J> - • : THEM PI- I.JJ 
■ ' " GOTO Zr* 

WPKI.J • '• " 

34 NEXT J.I Pt 4,2) - "X * 

M RETURN 

00 OEM PART IE 

te GOSUI I'M'} REH ---ICHACE 

20 ir M3 ■ Ifl THE.i J39 

?o gosue 2aea goto ho rem joueur 

3? EOSWB ZS9fl 

4.3 HOME PRINT PRINT "C'EST F'.HI. 



£H 



RIHT 



i ra ' 



--:-. 



■MOTE nOYEN; 



;29 



J35 PRINT "fit fir -SPSES - 
IF a :■ 1 THEM PRINT "•;'■ ■ 

3«0 PRIST - ": 20 - TO - i 
PRINT » IHT (U / 2)' 
■■ 1 THEN i3 - I lOTO 37fl 

z&i tr o > a then o - s 

;7:3 PR [NT ORIHT "1 



;-i-r p£SFQRMANC 



'1ST PJ<0> FOIST 



c»- rr ' g ^Ss*?--~C 


^^S 




g^^z^, ^saa^k- 


«• .s?^*^^ 






- 


I ei4 fob i = i *: s 




... 


-:•: 


-.■;:•] --: - : H*fli ;■ 


io ;o 


FOR ' 


TO 3W ■•• " T 


ten fob j . 5 to i sfep - : primi ft 


z;?? 


•-•:,-- 




■ J I ■ "E " . 


TOOO 


J£« : 


----:_ :-:: C0UP3 joues 


10*0 i- i ■ : : : : « i them ^f;mt u 


3819 


--" 


:5 HTAI 1 PRINT -ENTP-EES PR 


m u + 1 MTAI 11 PRINT ■ 


ECEBEHTES ' 




1050 HEXT : 


382a 


FOR : 


■ I to 3 ;: :--' COi MBME : 


10CO VTM 1* PRINT PRINT COUPS JOUE 




- FOR 


. * a re 9 if f<j.i> 


5 'i«3 PRINT 




1 THEf 


■ PRIST J: 


" PfirnT -COUPS MANQUCS ■■(Ni 


3039 


r.ZXT 


. PRINT ■ 


1070 PRtNT ' 




XT I 




PRINT "CHIFFRES " HJUES * iH3^ 


Zi?9 


OETUOfl 


PRINT " 


1000 


OEM - 




print 


4918 


OEM 




leff RETURN 


4920 


OE" 


;; f^rconnnE uot.is cermet 


2988 HZ • N2 * 1 R£H JOUEUfi 


4038 




D£ VOUS ENTR«IN£R AWX 


2010 UTCtB £2 HTRB 1 PRINT 'ESSftl NO.' 


*0*9 


PEN 


MU'_TIP(_ICATtG>iS 


fH2(" COLOMNE -7 IHIFFRE > ? "i 


*039 


REn 


EN OOUS FfllSONT DEuINE* 


20=0 HT6B 2£ GET -i C ■ ^ = L ((;•>■ 


40S9 


REM 


LES CHIFFRES OUT SE 


IF C * 8 THEN COSUB 308B COTO 2810 


*079 


REn 


CACHENT DERRIERE LES '•' 


2323 PRINT Cr ^7AE Zi GET R*'B 


49S0 


REN 




« U6L (R#J PRINT D 


40?9 


RE« 


;ele:ti ;-i»zz la colonne 


2030 If D i ; OR D ■; * 00 C > 5 


noo 


OEM 


PUIS EHTRE2 (MTRE Chiffre 


OR C i ■ 9 THEN VTAE 22 HTOB !■ 


4110 


REM 




PRINT ■REPOHSE INCORRECTE. 5CTBPE2. 


4120 


OEM 


EN TAPftHT COLONNE 0. 


- COS'JE 2050 GOTO 2018 


»1;0 


REM 


.-: :E"£'iE; us \appel 


20*9 IF FCB-CJ = I THEN VTA3 22 


»1*0 


OEM 


OES COUPS - :ues -receoemment 


HTftB 1 PRINT - ...DEJfl DIT... 








* GQSUB 20SO COTO 2016 


4160 


OEM - 




2050 F< D,C J > : 


417-0 


REN 





20-;0 Nr a MS 

2070 FOP I - I TO 3 IF fl<C.I 

then p«c.i) > -;tr* ' D> - 

* N5 - I 
2030 NEXT I IF Nr - N5 T"EH i 



W0UELIE2 PAS C£ SONORISER LE 
MESSAGES f 'EKREUP AyEC 'CTRL 



SKY-RAID 



Ce programme utilise unjoystickconnecteau port 2. Vous 
devez atteindre Ie generateur d'energie de I'ennemi a t ra- 
vers Ie blindage. Ce blindage peut etre perce a I'aide de 
bombes. Un bon jeu, qui risque parfois de degenerer si 
vous ne parvenez pas a detruire Ie generateur. 

J. TH1RIAT 

Remarque ; 

Pour utiliser le programme sans joystick, faire les modifications sui- 

vantes : 

690 A = PEEK (203) : IF A - 64 THEN 810 

700 IF A -47 THEN... 

710IFA-44THEN... 

740 IF A- 60... 

On utilise alors les touches "<". ">" et "'espace". 

Mode d'emploi : 

But du jeu Percer le blindage avec des bombes pour atteindre le 

generateur ennemi. 

Deroulement 

1°) charger une bombe dans I'avion. en allant a I'extreme droite de la 

base. Un avion charge est rouge. 

2") Traverser, sans etre louche, la zone des tirs ennemis. 

3°) Lacher une bombe sur le plan incline. La bombe tombe, rebondit.et 

part vers le generateur. L'avion devient jaune : il taut repartir a la base 

pour rechar ger. 

Ditficultes ; 

1 5 ) Les nuages, qui changent de place et de (orme, ou l'avion peut se 

perdre et qui peuvent masquer les tirs ennemis. 

2^ Un avion charge atteint par une fusee explose Un avion vide n'ex- 

plose pas toujours, mais devient ingouvernable quelques instants 

(bruits de rates dans le moteur). 
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pourrez le recpnnaitre facilement. 
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POKEV*b,ttJFOKEV-r,;E.y FOKEV+is- 130 FOKEV+9.78 

POKEV+16/3e ^P0KEV+11-7Q POI-.EV'li.liU Puk.cv*13.S7 

PUKEV-M4, 139-PUK£V*15.3» 

REM EXP 

POKEV+23- 43 ■ POKEV+29. ^55 

P0KEV#4e, 15 -PCIKEV+41,1 FOKEV+-42, 15 -POKfcV+43- 1 ?JKti 

PCJKEV*45. 12 

POKcv-^rj 136 

REM VflRIHBLES 

Bl*=" 51HJH IHIIII".li2S="a H»n IIIIHI 

B3t="rn it- iimmi"B43=".ti •< lomr 

r = j^ E=l -i = Ji:-F=4&-C=4e-0=48 
J=l.V=542?2 E=I£66'P=39- 1 1=56 
ni*1366:«2«l289:»«1864:Ui»34 
BJ=B2» U3=15 C0=14 TR-223 

soseee 

REM BRUITS 

P0r'.E542?r.l P0KE54iry, lit; H.if,c54276,6 

P0KES4273*23:P0KE34272i 123 

P0KE34284. 123 PttK£5428S- 129 F0t.£54283.a 

P0KE5428B- :■...' 

POr-.E5'li^l. ;^- - -■ 

P0KE34287, tfl POI t 

REM 

REM LECOR 

REM 

P0KE53231.C0 FPIHI'TJ" POKE532S0/B 

FORX=1504TOi-023iTEP41 

F0PV = XTO i0i-:irF.p46 

piJr.EV.223 Fur.tY-V.l3 MEXTV-HEKTX 

F0RX-19WT02823 

P0K£>;,ie*: -P0KEX*v,3 NEXT J* 

F0RX-U72TOU83 P0KEX*160 POKEX*V,2 NEXT 

FUR/ = I2^iTO1303 F0t'EJ<.l-,y FmEX+V-2 ME-. T 

P0KEM1.P PCIKEM2.P PL'KnMl*V.« PuK£Mt*V.fl 

POKE1334,10 POF-Elyi^.itJ f-ur.t] .-o^f -/.5 P0KEl985+\ 

PRINT"*" F>:liir - uimwiwi'W" PRIKTTflB<22>"ai i" 
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FUK.'-lI'Jl? 
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P0KE54296. 15 POKE5429e* 1 J 

REM EHTREE CLfiVIER 

IFJ-0THEH8ia 

H"PEEK<36328j IFfi>-127THENeie 

[Ffl-123THEHL=-1 SOSC-5 &QT0S10 

IFfl"U9THEHD=l-&t= ;'--'-■ -.3070813 

IFSf<>B2*THB«ia 

IFB-0ORT>U3THEH810 

IFH';il2TMEHiC=SL-20 OQIO770 

GOTOeiU 

REM BOMBE LHCHEt 

P0KEE+T,F f-0r.E£*<--V,W PUKE54276. 17 

K"£+7:C-40 

B-0 f:J=t.U 

K6PI DtPLflCEMEHl BOMBflROIER 

i F T * Ij . 1 OP r »I»>U 1 IHEMU=-u 



820 IFT=uiihtrib*=3«!»-J=l;POKE54283,0- 
P0KE54a»M7:PO033273<INT<RHD(l>»a56) 

3J0 &C = i':-l T = r + I;:pRINTTf : lBapB*. FmE542tt< , . I 
S40 REM LEPLHLEHEHT MISSILES 
&5U PuKtMl.I :PUKEM2jI 
360 IFm-0OW)TH£NHl"I486 

»l"d IFri2-G'.MTMEHH2=14S9 

fioO Ill=Ml-& M2=M2-C 

330 IFFEEK<f11 .'O IfiHDPEtK^fll )OHl HtNyOSUBi020 

:"JU IKKEEK '.112 ■■;> IFiUUPEEl.U12J^ 11 IHttluiJiUBlOiC 

318 POKEM1,P;POKEM2-P 

520 POKEM1+V.0 -POKEMi+V.fl 

930 lFB=lThEMb&« 

940 REM UEPLNC.EMENI BUMBE 

950 K1«K*C 

960 IFPEEK\f,l/ = luRPEEf.'.Kl/ = IlTHEfiPrjKEK,I.K*Kl- 

POKEjCJ F Pyr £*,♦'■/. tS ■ yu I Ubuy 

970 IFPEEK<M/=ri*THEin.= l &orO680 

360 IFPEEKCK1)«117THENP0KEK*I RUKfcKl , I -B"P 

F0>-.E54i76,0 liijIUbtu 

990 IFPEEC.(KlJ = 1271HEII125e 

1080 P0KEK,I B=l G0TC680 

1010 REM DEOftTS 

1020 P0KE53281.7 FORZ=nOiyO MtKI 

1030 IFBtOBUlHtMlUu 

lij-ly IFPEEK'LIH > = lv.-ut-.] LLP ..[l £ ..'-|...7THElU07e 

1050 IFPEEK<l11J"ll5ORPEEK<rl2>-il5TreHie90 

I960 I30TU1120 

1070 B*=>B4* J=0 Il=-1 SC=St-40 pij1.E'-42."iy.U Put ttrtto j, v j 

1830 KUR>:=1T0I8U ltt.y.1 P0K£5j*«1,CCi:0OTiJ12jU 

103« B*-B3* J=0-I)3l SC='3C-40 PUK£5429o.U Pu)- E'j4 t :3J. 33 

1100 F0RX»lT0iefl:NEXT:P0KE5328I.CO G0T01233 

1110 ctfl DESTRUCTION 1 



MYSTERE 



Janine BOUYGUES 



POUK 1-EC.R 
OLE I NEC HON 
FFO 3 



?. IMPBlMflNTE 1 



lliij F..-L'...., 1 .: FrjRX^53248T033262STEP2 


iiio i-i." t .n, ,...-..-. (.mli-, i,. i iie:-;i;-; 


1140 IFB* = fc*.irPiEN:..=^L-!'J>J 




1150 6L=bL-5U 




1168 6*=B1* K=0 J-l 




1178 Vfi=Vfl+l 




I1S0 IFVR-ITHBCO-H 




1190 IFVM=3THENCO=10 




1288 IFVfl=3THEIIVri»0.CU=O 




1210 PRINrTRB<T/ i ' ' . r-2 




1220 FijR/:=lIO180 NEXT PUKE532B1.C0 


1230 lF3C^0rhErlii-=W ij'JlOU'5'J 




1240 RETURN 




1250 FRIN7"«" P0KE53281.14 




1268 PRIHT'-WtlMl" 




1270 PRiMTTflBCJ8;LHR*( 158J.SC 




1268 PRIHT"Ja««M^W , ■ 




1298 PRINTTfiB(13)"0fiHE OVER* P0X6S4296*fl 


1300 L.OTO1380 




1310 DftTP.0.0,8,0,0,0.0.1.13.; 




1320 rjATH0,7,252.3.20r'.254,15. 
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1330 DHTH31.255.^52./.235,247. 


31.255,234 


1340 DRTM127. 255. 124.255,253,2 


55-255.235,255 


1350 DMTH127 ,255.234,63.255.23 


4. 15,255,232 


1360 DRTH3l,255,252.29.255.24E 


,0,63,248 


1370 DPTR0. 12, 192,0,0,8,8,8.0 
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DEUX SUPER-CONCOURS PERMANENTS 

1 0000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours, de plus ! 
Rien de bien original dans cette 
formule. pourtant nous es- 
sayons de taire quelque chose 
de different : nous organisons 
un concours permanent tous 
tes mois et tous les trimestres ! 
E t avec des prix dignes des pro* 
grammes que vous allez nous 
envoyer! 

Oe plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suetle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBOOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXetFRANCAIS.Si 
voire programme n'est pas tout 
a fait au point, un de nos spe- 
cialistesvousdira comment 
1'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, ii vous suff it de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement 

ART 1 . HEBDOGICIEL organise 
de tacon mensuelle et trimes- 
Inelle un concours dote de prix 
recompensant !e meilleur logi- 
ciel du mois et du trimestre. 
ART 2 : Ce concours est ouvert a 
lout auteur de logiciel quelque 
soil le materiel sur lequet il est 
realise. L'envoi d'un logiciel en 
K 7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaclion de notre 
journal constitue racle de can- 
didature 

ART 3: La redaclion d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualile etdel'onginali teles logi- 
ciels qui sont publies dans le 
journal. 

ART 4 Ce sont les lecteurs qui. 
par leur vole, determment les 
meiileurs logiciels mensuel et 
tnmestriel. 

ART 5 Le prix ailoue pour le 
concours mensuel sera remisau 
plus lard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix ailoue pour le 
concours trimeslriel sera remis 
au plus tard un mois apres la clo- 
ture du concours tnmestriel 
ART 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Pans 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART 9: La participation au con- 
cours entraine I acceptation par 
les concurrents du present re- 
glement. 



Sera declare gagnant le pro- 
gramme qui aura obtenule plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
o rdinat eur. 

Ainsi, pas de favorilisme pour 
les ordinateurs plus pulssants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le sysieme 
de depouillement du vote. 



BON DE PARTICIPATION 



Norn . 

Prenom 

Age; 

Adresse ; 

n" telephone : 

Nom du programme 

Norn du materiel utilise 

declare etre lauteur de ce programme qui nest m une imitation m 
une copie dun programme existant Ce programme reste ma pro- 

prieteetj'autorise HEBDOGICIEL a lepuuiief\a remuneration pour 
les pages publtees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au prorata de la sur- 
face occupeel 
Signature obligatoire : 
(signature des parents pour les mineurs) 

Le programme doil etre expedie sur support magnetiq^ 

ou disquette) accompagne d'un Descnptit Del-vile du Mai 

lise, d'une Notice d'Utihsation du Programme, et dun emii.m.ige 

timbre permetlant la reexpedition du materiel non public 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FA1RE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouve2 nous envoyer plu- 
sieurs programmes sur un meme 
support en I'mdiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM. votre nom, le nom du pro- 
gramme etle materiel auquelil est 



desline. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'imprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistremenl difterents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver ale charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettezvotre adres- 
se complete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnement" el 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 



Ne nous envoyez plus d'envelop- 
pestimbrees, mettezsimplement 
les limbres joints a votre envoi. 

• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evitez de nous envoyez 
les jeux suivants : BIORYTHMES, 
MASTERMIND. PENDU. TOUR DE 
HANOI. CALENDRIER. BATAILLE 
NAVALE, POKER. JACKPOT 
BOWLING, BLACK JACK, LABY- 
RINTHS. MEMORY SIMON, 421, 
OTHELLO, SOLITAIRE, LOTO 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CKACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



DDI OFFRE CINO CASSETTES 
VIERGES AU MEILLEUR PRO- 
GRAMME DE CHAQUE CATEGO- 
RIE. 



Le Club PPC-T otfre au meilleur 
logiciel en langage FORTH sur 
HEWLETT-PACKARD uno adhe- 
sion gratuite a son club. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP41, leur livre"autourde la bou- 
cle" de Janlck TAILLANDIER. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CEERS.232.C. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 



IMPOTS 84 



Programme realise en Basic pur. II permettra de calculen 
pour tous les bons contribuables francais que nous som- 
mes, les impots pour 1984 (revenus de 1983). dans la joie ! 
Le programme tient juste dans la memoire RAM sous ex- 
tension. II peut etre bien sur conserve pour les autres an- 
nees (modifier simplement les lignes 700 et 970 pour le 
bareme. 

P. BOICHUT 
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PRINT"; 

PGKE368/9.i/ FRINT"X' END 

POKE198.0 

GETZ* IFZI-^'lHENll^U 

RETURN 

FORT-1TO100 HEXTf 

POKE3607S. 13 F0fik-1 TU2W 

P0KE368/6, 240 FORM-1 T023 

NEXTH 

POKE36876.0 FuRtl-lT0i3 NEXIfl NtXTK 

RtlURN 

PRINT".-»W"IFIB<6> 
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FORT-ITO10O0 NEXI 

PRINT "MMNfT 

FORO»1T022 PRlNI"*in", KiRH-Olu^o HEN1 

PRIHIHIMt "PRuuRHMrlE REFtLISE POUR". 0.1). HEKI PRIHI PRINT' 

PKHtl"« ". 

FORQ-1TO20 PRIHT-.'tilO", FOR«"0TO*6 iit^i 

FR1NII11UH "LPtLl-ULEk VOTRB IMPUl " -U. I > . NEXT PRINT PHIIU' »l 

PURI-I IO5B00 NEXT 

RETURN 

PRINT "MB ", 

FORO-lTOiy PKirn "itiitl", 

PRIHItllBK "VOIRE ini-ul 

PRINT"»I 

ORQ i i.,-. I h IHT'HOWi 
pRinrniDl. "SeRfl Ut ",u. 
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ISOLA 



Si vous vous sentez triste et solitaire, voire HP41 C sera un 

partenaire ideal pour jouer a... ISOLA ! 

Isolez votre adversaire. et vous ne serez plus seul a etre 

seul ! 

A deux c'est deja mieux, non ? 

F. DISPOT et F VISSOTSKY 

Mode d'emploi : 

But du jeu : A tour de role chaque joueur deplace son pion dune case 
(comme le ROI aux echecs) et "lue" une autre case. Le vamqueur est 
celui qui reussi a encercler entitlement le pion adverse. 
Descnption . Sur un plateau dejeu de 8 cases sur 6, dispose horizonta- 
lement, chaque case a pour coordonnee son num6ro de ligne. suivi du 
numero de colonne. Exemple : La case en bas a droite est notee 68. En 
basa gauche 61. 



































vous 
X 






























HP 41 
Y 



































Les pions marques X et Y partem respeclivement des cases de depart. 

de coordonnees 31 et 49. lesquelles ne peuvent pas etre tuees On ne 

peut pas tuer une case occupee.etdememe les deux pions nepeuvent 

occuper la meme case, nl bien sur une case deja detruile 

La partle nulle est alors Impossible, car vous devez imperativement 

vous deplacer AVANT de luer une case. 

COMMENT PROCEDER AVEC LA HP 41 CV (OU la HP 41 C + module 

Quadram) en size 067. 

1 ) Chargez le programme. Faites "MEMORY-LOST" et n'assignezaucu- 
netonction. Le programme pfendtoute la place en memoire, (c'est a di- 
re 910 lignes et 319 registres). 

2) Tapez RIN et R/S puis attendez le message "PRET" alors entrez les 
coordonnees de la case ou vous voulez vous deplacez et pressez la 
louche "D" (deplacement). 

3) Ensuite mdiquez les coordonnees de la case a luer et pressez la 
louche 5 (case). 

Votre coup est affiche, mais vous pouvez encore !e reprendre en reve- 
nanl au 2) ou 3) sinon ... 

4) Validez votre coup en enfoncant la touche J (JOUE)et attendez quel- 
ques instants Suivant le degre d'analyse. s'afficheront alors les dra- 
peauxO. 1 ou 2. Vos erreursserontrejetees avec le signal sonore BIP et 
le message d'erreur "?". 

5) La machine aftiche ensuite son deplacement (avec BIP) et la case 
qu'elle tue (+ BIP). Puis elle revient au 3. 

Autres fonctions disponibles : 

"B" Vous revele les mouvements que vous envisagez sur voire HP. sous 
la torme "MVT : xx CAS : yy". 

"F Permet de verifier la position HP affiche I'aire de jeu : "VOUS : xx 
HPyy". 

"H" Pour HELP : si vous n'etes pas sur de vous, la machine peut vous 
conseiller lemeilleur coup a jouer, etindiquecette recherche en levant 
le drapeau 4. Attention la recherche s'effectue au niveau 1, ce n'est 
peut-etre pas le meilleur !!! 

"E" et vous ECHANGEZ vos roles avec HP elle jouera a votre place tout 
en levant le drapeau 3 pour signaler ce changement. 
"I" serl a revenir a la position initiale. Le score reste inchange. 
Vous desirezcreerunprobleme? C'est prevuettresinteressant. Proce- 
dez ainsi : RTN R/S pour remettre tout a zero, -ou T pour conserver les 
scores-, entrez les coordonnees des cases a tuer puis pressez "A". En- 
suite. pour positionner le pion de la machine, pressez "G" entrez les 
coordonnees de ce pion. puis R/S et continuez comme pour unepartie 
normale. 

PS. Le temps d'initialisation est un peu long au commencement : le pro- 
gramme resout les adresses des sous-programmes. 



RAPPEL : Les foncttons programmee? BOTH 

A "tuer" une case en posant un probleme apres r entree do coordon- 
nees 

B interrogation de vos possibility 

C : "tuer" une case dont vous venez de fournir les coordonnees 

D ; deplacer son pion. 

E echangerles r6les. 

F verification de la position. 

G : poser un pion dans un probleme (puis les coordonnees puis R/S) 

H . HP pense pour. 

1 : reinitialise? en conservant les scores 

J : c'est joue 

Les drapeaux indiquent le niveau de reflexion ; 

Niveau faible (au depart) 

1 niveau moyen 

2 plus haul niveau 
3echangedesroles 

4 proposition en cours. 

REMARQUE : Le programme doit repondre au 1" coup en option E : 

'32-47' sinon une erreur s'est glissee dans le programme 
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128 RDH 

129 RDN 
138 STO 64 

131 SF 85 

132 CTO B 
133<L8L C 

134 FC? 85 

135 CTO 14 

136 RCL 64 
13? X=Y? 

138 CTO 14 

139 RUN 
148 XEQ 17 

141 ENTERt 

142 XEO 87 

143 ENTERt 

144 RCL IND 

145 INT 

146 X«8? 

147 GTO 14 

148 RDH 

149 STO 61 

158 RDH 

151 STO 54 

152 CTO B 
153*LBL A 

154 XEO 17 

155 XEO 87 

156 RCL IND 
15? ENTERt 

153 INT 

159 X<8? 

168 CTO 14 

161 RIN 

162 ST- 55 

163 3 

164 ST* IND 

165 1 

166 ST- 56 

167 CTO 18 
168«LBL C 

169 FS? 86 
178 -VOUS- 

171 FC 86 

172 -HP" 

173 8EER 

174 PRONPT 

175 XEO I? 

176 XEO 8? 
17? RCL IND 
178 INT 

59 179 X*8? 
188 CTO 14 
I 59 181 RDN 

132 FS'' 86 

133 59 

134 FC 86 

135 58 

I X 186 RCL IND 

187 FRC 

188 STO IND 

189 RDN 
198 XOV 
191 STO IND 



192 1 

193 ST* IND 

194 FCC 86 

195 SF 86 

196 CTO 18 
197«LBL 17 

198 11 

199 X>Y? 

288 GTO 14 

281 RDH 

282 68 

283 X<Y? 

284 GTO t4 

285 RDN 

286 RTN 
287*LBL J 

X 288 CLfl 

289 QRCL 64 
218 -H- 

211 BRCL 54 

212 RVIEH 

213 FCC 85 

214 GTO 14 

215 RCL IND 

216 FRC 

217 ST- 55 

218 1 

219 ST* IND 
X 228 3 

221 ST+ IND 

222 RCL 53 

223 STO 59 
224»L8L 22 

225 1 

226 ST- 56 
22? RCL 56 

Z 228 43 
229 X<Y? 
238 SF 88 

231 RCL 53 

232 STO 63 

233 RCL 18 

234 INT 

235 STO 13 

236 RCL 34 

237 INT 

238 STO 34 

239 XEQ 13 
248 RCL 64 

X 24! X=8' 

242 CTO 12 

243 8 

244 STO 68 

245 RCL 89 

246 XEO 85 

247 RCL 18 

248 XEO 85 

249 RCL 19 
X 258 XEO 85 

251 RCL 27 
1 252 XEO 85 

253 RCL 23 

254 XEO 85 
1 255 RCL 68 



256 

Y 257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
26? 
2(8 
269 
278 
271 
272 
273 
274 
275 
276 
277 
278 

61 279 
288 
281 
282 

53 283 
284 

61 285 
286 
28? 
288 
289 
298 
291 
292 
293 
294 
295 
296 
297 
298 
299 
388 
381 
382 
383 
384 
385 



ST* 18 

e 

STO 68 
RCL 25 
XEO 85 
RCL 24 
XEO 85 
RCL 33 
XEO 85 
RCL 42 
XEO 85 
RCL 43 
XEO 85 
RCL 68 
3 

X<8? 
8 
18 
/ 

ST* 34 
XEO 16 
XEO 86 
RCL IND 
FRC 

STO IHD 
2 

ST* IHD 
RCL 54 
STO 58 
XEO 88 
-h : • 
ORCL X 
OVIEN 
BEEP 
RCL 59 
STO 63 
XEO 16 
XEO 13 
SF 85 
XEO 86 
RCL 53 

x=e? 

CTO 11 
3 

ST* IHD 
RCL 54 
XEO 88 
•F-- 
BRCL X 
RCL 59 
STO 66 
8 

STO 64 
XEO 82 
RCL 64 

x=e' 

CTO II 



328 1 

321 ST- 56 

322 flVIEH 

323 BEER 

324 8 

325 STO 64 

326 STO 54 

327 GTO 18 
328*L8L 85 

329 INT 
338 X«8? 

331 SIGN 

332 1 

333 - 

334 CHS 

335 ST* 68 

336 RTN 
337*LBL 86 

338 8 

339 STO 53 
348 -I 

341 FC? 89 

342 XEO 88 

343 1 

344 FC? 87 

345 XEQ 88 

346 -18 

347 XEO 88 

348 18 

63 349 XEO 88 

358 9 
63351 FC? 86 

352 XEO 88 
54353 -9 

354 FC? 88 

355 XEO 88 

356 8 

357 XEO 88 

358 -8 

359 XEO 88 
368 RTN 
361*LBL 88 

362 RCL 63 

363 - 

364 CHS 

365 X<8' 

366 RTH 

367 STO 66 

368 FC 85 

369 CTO 29 

378 RCL 66 
54 371 18 

372 X=Y' 

373 RTH 

374 RDH 

375 34 

376 X=Y' 

377 RTH 
378*LBL 29 

379 RCL IHD 
388 IHT 

381 X>8' 

382 RTH 

383 STO 64 



384 FS' 82 

385 GTO 73 
386*LBL 74 

387 XEO IND 

388 RCL 53 

389 RCL 64 
398 X<=Y' 

391 RTN 

392 STO 53 

393 RCL 66 

394 STO 54 

395 RTH 
396*LBL 73 

397 3 

398 ST* IHD 

399 RCL 59 
488 X<> 66 

481 STO 59 

482 XEO 82 

483 RCL 66 

484 X<> 59 

485 STO 66 

486 3 

48? ST- IHD 

488 RCL 64 

489 FS? 85 
418 CTO 71 

411 X<8? 

412 GTO 74 
413*L8L 72 

414 RCL 66 

415 STO 54 

416 99 

417 STO 53 

418 RTH 
4I9*LBL 71 
428 1 

421 X<Y' 

422 CTO 74 

423 GTO 72 
4241LBL 13 

425 CF 81 

426 CF 82 

427 FC 88 

428 CTO 69 

429 2 

438 STO 65 

431 STO 64 

432 RTN 
433«LBL 69 

434 RCL 55 

435 RCL 56 

436 / 
43? .52 

438 X>Y' 

439 SF 82 
448 RCL 63 

441 STO 66 

442 8 

66 443 STO 64 

444 XEO 82 

445 RCL 64 

446 3 
44? X>Y? 
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448 SF 32 

449 SF 81 
458 FS' 82 

65 451 CF 81 

452 3 

453 FS? 82 

454 4 

455 STO 65 

456 RTN 
457*LBL 87 

458 STO 68 

459 18 
468 / 
461 IHT 

66 462 1 

463 - 

464 9 

465 • 

466 RCL 68 

467 18 

468 HOD 

469 1 
478 - 

66 471 ♦ 
472 RTN 
473«LBL 88 

474 STO 68 

475 1 

476 + 

477 9 

478 / 

479 INT 
488 I 

481 * 

482 13 

483 • 

484 RCL 68 

485 9 

486 HOD 

487 1 

488 ♦ 

489 * 
498 RTN 
49ULBL 34 

492 -38 

493 FC? 18 

494 FS' 24 

495 FS' 38 

496 XEO 81 

497 38 

498 FC? 25 

499 FS' 28 
588 FS? 38 

581 XEO 81 

582 -24 
593 FC 18 
584 FS' 28 
595 FS' 38 

586 XEO 81 

587 24 

588 FC 24 

589 FS' 25 
518 FS' 38 
511 XEO 81 



512 FS? 96 

513 GTO 69 

514 FS? 19 

515 GTO 69 

516 -29 

517 XEO 81 

518 -28 

519 XEO 81 
528 -27 

521 XEO 81 

522 -26 

523 XEO 81 

524 -25 

525 XEO 81 
526*LBL 68 

527 FS' 98 

528 CTO 61 

529 FS? 25 
538 CTO 61 

531 25 

532 XEO 81 

533 26 

534 XEO 81 

535 27 

536 XEO 81 

537 28 

538 XEO 91 

539 29 
549 XEO 91 
54t»LBL 61 
542 FS' 89 
543. GTO 62 

544 FS? 28 

545 GTO 62 

546 -16.8286 

547 STO 68 
548*LBL 78 
549 RCL 68 
558 INT 

551 XEO 81 

552 ISC 68 

553 GTO 78 
554*L8L 62 
555'FS' 8? 

556 CTO 83 

557 FS? 24 

558 CTO 83 

559 -28.8161 
568 STO 68 
561«LBL 71 

562 RCL 68 

563 IHT 

564 XEO 81 

565 ISC 68 

566 GTO 71 
567<L8L 83 

568 -28 

569 FC 18 
578 FS' 24 

571 FS' 38 

572 XEQ 91 

573 28 

574 FC 25 

575 FS' 28 



576 FS? 38 

577 XEO 81 

578 -16 

579 FC? 18 
588 FS? 28 

581 FS? 38 

582 XEO 31 

583 16 

584 FC? 24 

585 FS? 25 

586 FS' 38 
58? XEO 81 

588 FS' 18 

589 GTO 63 
598 -19 

591 XEQ 81 

592 -18 

593 XEO 81 

594 -1? 

595 XEQ 91 
596*L8L 63 

597 FS? 25 

598 CTO 64 

599 17 
688 XEO 81 

681 18 

682 XEO 91 
693 19 
684 XEO 81 
685«LBL 64 

686 FS? 24 

687 CTO 65 

688 -II 

689 XEO 81 
618 -2 

611 XEQ 81 

612 7 

613 XEQ 81 
614*LBL 65 

615 FS' 28 

616 CTO 82 

617 -7 

618 XEO 81 

619 2 

628 XEQ 81 

621 II 

622 XEO 91 
1 623«LBL 82 

624 -18 

625 XEO 91 

626 18 

627 XEO 81 

628 -8 

629 XEO 81 
638 8 

631 XEO 81 

632 -9 

633 FC 86 

634 XEQ 81 

635 9 

636 FC 98 

637 XEO 81 

638 -1 

639 FC 8? 



649 XEO 91 

641 1 

642 FC? 99 

643 XEQ 91 

644 RTN 
645*L8L 81 

646 RCL 66 

647 * 

648 X<8? 

649 RTN 
658 53 

651 X<Y? 

652 RTH 

653 RDN 

654 RCL IND X 

655 INT 

656 X»8? 

657 RTN 

658 RDN 

659 18 
668 X=Y? 

661 GTO 38 

662 RDN 

663 34 

664 X=Y? 

665 GTO 38 

666 1 

667 ST* 64 

668 RTH 
669»LBL 11 
678 -PERDH- 

671 OVIEN 

672 1 

673 ST* 62 

674 CTO I 
675«L8L 12 
676 -CRGNE- 
877 BVlESi 

678 1 

679 ST* 57 
688 GTO I 
68HLBL 38 

682 RCL IND 66 

683 ST* 64 

684 RTN 
685*LBL E 

686 SF 83 

687 CLO 

688 I 

689 ST- 56 
698 ST- IND 58 

691 ST* IND 59 

692 RCL 58 

693 X<> 59 

694 STO 58 

695 GTO 22 
696<LBL 16 

697 CF 86 

698 CF 87 

699 CF 88 
788 CF 89 

781 CF 18 

782 CF 24 

783 CF 25 



784 CF 28 

785 8 

786 STO 68 

787 -18 

788 XEQ 89 

789 -9 
718 XEQ 89 
711 -8 
?12 XEQ 89 

713 8 

714 X<> 68 

715 I 

716 X<Y? 

717 CTO 48 

718 SF 86 

719 SF 18 
728*LBL 49 

721 -8 

722 XEO 89 

723 1 

724 XEO 89 
?25 18 

726 XEO 89 

727 8 

728 X<> 68 

729 I 
738 X<Y? 

731 GTO 41 

732 SF 89 

733 SF 28 
?34<LBL 41 

735 8 

736 XEO 89 

737 -1 

738 XEO 89 

739 -18 

748 XEO 89 

741 8 

742 X<> 68 

743 1 

744 X<Y? 

745 GTO 42 

746 SF 87 

747 SF 24 
748«LBL 42 

749 FS' 19 
758 GTO 43 

751 -28 

752 XEO 89 

753 -19 

754 XEO 89 

755 -18 

756 XEO 89 
75? -17 

758 XEO 89 

759 -16 . 
768 XEO 99 

761 8 

762 X<> 69 

763 4 

764 X>Y' 

765 SF 18 
766*LBL 43 
767 FS? 24 



768 CTO 44 

769 -28 
??8 XEQ 89 

771 -II 

772 XEO 89 

773 -2 

774 XEO 89 

775 7 

776 XEO 89 

777 16 
?78 XEO 89 
779 8 

788 X<> 68 

781 4 

782 X>Y? 

783 SF 24 
784*L8L 44 

785 FS? 25 

786 CTO 45 

787 16 

788 XEO 89 

789 17 

798 XEO 89 

791 18 

792 XEO 89 

793 19 

794 XEO 89 

795 28 

796 XEO 89 
79? 8 

798 X<> 68 

799 4 
888 X>Y' 
881 SF 25 
882<LBL 45 

883 FS' 28 

884 RTN 

885 -16 

886 XEO 89 
88? -? 

888 XEO 89 

889 2 

818 XEO 89 

811 It 

812 XEO 89 

813 28 

814 XEO 89 

815 8 

816 X<> 68 

817 4 

818 X>Y' 

819 SF 28 
828 RTN 
821*LBL 89 

822 RCL 63 

823 * 

824 RCL IHD X 

825 IHT 

826 X«8' 

827 RTN 

828 1 

829 ST* 68 
838 RTN 



TRACOURBE LCD pC i500 



Ce programme trace la courbe representative d'une fonc- 
tion Y ■ f(x) suf un ecran visuet de 80 x 80 points. 
L'ecran du PC 1500 est une fenetre de lecture qui permet 
de visualiser une partie de la courbe. 

Franpois PICARD 

Mode demploi : 

NEW &43E5. charger le programme Basic, charger le programme en 

langage machine (POKE adresse), bloc de 18 octets, et GOTO 3000. Si 

DATA OK apparait. ettacer les lignes 3000 a 4010 Si ERR INTRO appa- 

rait. verifier le programme en langage machine Utiliser GOTO unique- 

ment (RUN efface la partie langage machine) 

Commandes : 

P programmation de t(x) X = : entrer une valeur de x telle que f(x) soil 

deftnie 

F(X) = : entrer ['expression de f(x) 

N:valeursdef(x)X = :entreruneva!eurdeX.llyaaffichagedeXetrjela 

valeur l(x) 

Taper ENTER pour une nouvelle valeur. repondre ENTER pour terminer 

quand X = est affiche 

T : trace de la courbe cl : repondre I (oui) ou (non) suivant que Ton veut 

effacer ou non I'ecran. 

entrer les intervalles des variables X et Y (question A. B. C, D). 

? : entrer le nombre de points necessaires au trace. 

V : Visualisation let I font monterou descendre l'ecran La valeur de y 

correspondan! a la position du tiret est affichee a gauche. ESPACE pour 

terminer. 

S . Trace d'un axe vertical x = : entrer Tabscisse de raxe 

E : fin de programme 

Remarque : Les variables fixes alphanumeriques sonl utilisees par le 

programme en langage machine, sauf AS. BS, CS. DS. 



TRBCE 
DE COURBES 
SUR LCD 
PC-1500 (2.6 ko) 

BBSIC 

NEW S43E5 
2:US1NG '•*.#*»«'- 
":UBIT 0:ON 
ERROR GOTO 5: 
GOTO S 



5: IF PEEK 8,789B< 
>HLET Y=1E93: 
RETURN 

6:G0T0 fii-riNKEY* 
10:"U"POKE 8,7050, 
813,495, 8,0: 
GCURSOR 82: 
GPRINT 42;8:T= 
D-4*U, N=03*W, 



:"u "CALL S7061 
:' = Y*Utl.i<T): 
GOTO 20 

:"u "CSLL S2066 
:Y=Y-U*<Y>N>: 
GCTO 20 

:"u "fl*= CLS 

:G0TD INKEYS 

:"u"GCURS0R 83: 
PRINT Y:G0T0 fl 
*+INKEY* 

:"P"CLS : 
RESTORE 2E3: 
INPUT C, X=";X, " 
fOO = ";T:CBLL 
27150:CLS : 
GOTO 6 

: "T"CLS : INPUT 
"CL?";T: IF T 
COLL 8,7 17C 

: INPUT "fl=";fl, " 
B-";B, "C="JC, " 
D=";D, 0:R=CB-0 
1/0, rt=78'(B-S) 
, U=CD-C>^78 

:X=fl:F0R N=1T0 
0:G0SUB 2E3: 
GOSUB 340 

:PRINT X, Y:X=X-» 
R:NEXT N:CLS : 
END 

:P0KE S78D0, CX- 
«>*m.5,'CY-C)7 
U-M.5:CALL 871 
8C: RETURN 

:"S"INPUT "X="; 
N:IF N>B0R N<fi 
THEN 500 

:T=INT C.5+CN-A 
>*78^CB-fi>): 
COR N=840C5*T 
TO 84395+ 'STEP 



80:POKE N, 8FF: 

NEXT N:CLS : 

GOTO 6 
600: "N"UfiIT :Y=1E9 

9: INPUT "X="!X 
GOSUB 2E3: 

PRINT X, Y:G0T0 

600 
610: 'E"END 
7000:Y=******»*** 

HHtHttTH 
X«*tt****M 

3000: RESTORE 40: 
POKE (PEEK 8 
78BE-128>*25 
6+PEEK S78BF 
>2, 11 

3010:RESTORE 50: 
POKE (PEEK 8 
78BE-128)*25 
6+PEEK 678BF 
+2, 10 

4000:B=0:FOR 0=8.7 
050TO 820FF: 
B=B-rPE£K fi: 
NEXT fi: IF B< 
>19939PR1NT 
"ERR. INTRO. 
":END 

4010:B=0:FOR fl=87 
150TO 871DB: 
B=B+PEEK fi: 
NEXT fi: IF B< 
>16I51PRINT 
"ERR. INTRO 
":END 

4020:PRINT "DftTfl 
OK" 




Lf- «>_»-. 

a 87050 > 
00 00 00 00 
IB 50 45 28 
45 18 45 IB 
9 87062 > 
70 54 8E 10 
54 FD 52 83 

07 B5 50 FD 
9 87074 > 
09 F9 90 IB 
81 21 6E 80 
52 83 K6 50 
a 87086 > 
F9 Bl 4F 83 
62 2B B5 09 
18 6C 41 83 

8 87098 > 
80 83 02 9E 
B8 B5 00 FD 
4E 81 07 48 
a 87000 > 
Bl 4D 8E 02 
B7 27 81 05 
F9 Bl 26 09 
a 820BC > 
88 FD 98 25 
8B 04 D5 52 
AE 70 DE FD 
a 870CE > 
50 FD EB 25 
5C 00 8B 05 
52 9E 09 BB 
a 870EB > 
IB FD 0B FD 
88 FD 2B FD 
64 B7 50 91 



- 


" 


a 870F2 > 






48 


70 


20 48 70 4fl 


58 


.-,'• 


4b 


2B 


41 24 41 94 


41 


:••■ 


if, 


3F 


0E 9B 

a 82150 > 






Bt 


70 


05 78 BE F9 


3; 


7F 


0b 


58 


18 A5 78 BF 


fi 


BS 


tH 


B5 


02 FD Dfl 48 
a 87162 > 


?B 


4A 


bt 


43 


B5 B5 0D 4E 


F 3 


BB 


81 


ID 


06 07 88 03 


FS 


96 


B7 


24 


00 B5 30 51 
8 87174 > 


BS 


FI 


02 


FD 


51 B5 99 51 


BS 


00 


F3 


10 


IE 90 68 40 


6A 


CS 


06 


6E 


B5 80 61 6C 
8 87186 > 


43 


91 


34 


FD 


05 6E E6 91 


es 


90 


C8 


B7 


58 40 50 C5 


BS 


78 


76 


F9 


D0 B7 50 83 
a 87198 > 


3B 


88 


48 


74 


05 78 D I 2A 


s; 


SB 


FD 


40 


83 32 85 50 


-.'?, 


BO 


0B 


FO 


6A 02 D5 88 
a 87IAA > 


83 


60 


5E 


00 


82 D9 88 03 


FO 


C8 


9E 


08 


OE 28 Dl 04 


FP. 


01 


08 


B5 


28 Dl 00 FD 
8 871BC > 


80 


20 


ED 


2B 


85 00 62 81 


04 


FD 


09 


FD 


DO 9E 02 84 


FIT 


DO 


HO 


FO 


68 71 60 D3 
8 871CE > 


84 


FD 


B8 


CD 


EO 2S IB IE 


9A 


Bl 


80 


DO 


82 04 08 18 


28 


4B 


:m 


FD 


80 




■ 



CLAVIER AUTOREPEAT SONORISE VERSION 2 



50C5 


COLL E42C 


58E0 


LD (X),0 


5BC5 


BE 


E4 


2C 


48 




50C8 


LD XH, 78 


50E1 


BIT (X), 10 


50C9 


78 


40 


58 


B7 




50CO 


LD XL, 58 


50E3 


JR Z, 58EC 


50CD 


01 


89 


02 


CJD 


10 
20 ' 


50CC 


CP 0, 01 


50E5 


LD UL, 03 


5001 


0b 


40 


81 


8B 


50CE 


JR NZ, 50D2 


50E7 


LD XH, 81 


50D5 


0B 


tB 


/"B 


■Vc 


5000 


XOR A, (X) 


50E9 


CALL E66F 


50D9 


02 


B7 


IB 


89 


48 


5001 


LD (X),A 


50EC 


CALL E240 


50DD 


03 


03 


80 


0b 


50 


58D2 


BIT (X),81 


50EF 


CP 0, 0F 


50E1 


40 


10 


SB 


07 


68 


50D4 


JR Z, 50E1 


50F1 


JR NZ, 50F6 


50E5 


60 


83 


48 


01 


70 
80 

90 


50D6 


OR (764E>, 02 


50F3 


COLL E33F 


50E9 


BE 


E6 


Bf 


BE 


50DO 


CP 0, IB 


50F6 


RCF 


50ED 


E2 


4fi 


B7 


8F 


50DC 


JR NZ, 50E1 


50F7 


OR (7B0E>,40 


58FI 


89 


83 


BE 


E3 


98 


5BDE 


SLO 


50FB 


RET 


50F5 


3F 


F9 


LB 


7B 


100 


50DF 


XOR 0, (X) 






58F9 


BE 


48 


9ft 




1 18 



PC 1500 



REM CL0U1ER BUTOREPEOT SONORISE 

INPUT "Adresse depar I " ; A: B=0 

FOR C=0TO 54 

READ 0:POKE (A + O, D 

NEXT C 

0=8:C=INT (0'256>:D=fi-(C*256> 

POKE (8785B), CiPOKE (8785C), 0: POKE 87904,855 

CLS :BEEP 3: END 

DBTB SBE, 6E4, 82C, 848, 878, 64A, 85e, 8B7, 801, 889, 802, 80D, 80E, 84D, 601 

DOTB 888, 80B, 8EB, 876, 84E, 802, 8B7, 81B, 889, 803, 609, 60D, 60E 

DATA 64D, 610, 88B, 807, 86B, 603, 848, 801, SBE, 8E6, 86F 

DOTB 6B7,' 60F,' 889, 803, 6BE, 6E3, 63F, 8F9, 8EB, 87B, 60E, 840, 89B ■ 



MACHINE A SOUS 



Avec ce programme de Jack-pot, vous vous croirez dans 
I'ambiance et I'univers des fabuleuses nuits de Las Vegas. 
Ce programme utilise le maximum des caracteres graphi- 
ques de votre FX 702 P Vous avez 20 parties pour etre mil- 
liardaire. Au depart I'ordinateur vous confie une cagnotte 
de 1000 $. Puis vous miser afin de vous enrichir... Ou de 
vous appauvrir ! Le tout est de savoir si (a chance va vous 
sourir, pourcela il voussuffit d'appuyer sur la touche"+" et 
d'admirer les rouleaux de votre Jack-pot jusqu'au mo- 
ment fa tidiqueoii... Je ne vous en racontepaspluset vous 
latssevous evader danscet univers qui vous permettra de 
decouvrir d'autres surprises. 

Hiep NGUYEN 



FX 702 P 



Explications du programme : Taper DEFMO. 

Apres avoir entre ie listing. Mode faire RUN EXE. Le mot Jack-pot ap- 
parait tout doucement puis ilclignotte pour a ttirer Tat tent ion (lignes 10 
a 30). Apres avoir entre la mise.le point audebu! apparait (52 SSJ.ilsuffit 
d'appuyer sur la touche"+" pour (aire tourner les rouleaux. Les symbo- 
les defilent a I'affichage (lignes 85 a 145). Ouand les jeux sont (aits, le 
programme examine si rien ne va plus. On teste alors si les symboles 
sont identiques (lignes 150 a 165). 

- Si les deux extremitesou les deux milieux sont identiques on gagnele 
double de sa mise. 

- Si les trois sont identiques on gagne le triple de sa mise. 

- S'il arrive que les deux extremites sont identiques ainsi que les deux 
milieux, la mise sera multipliee par 5. 

- Enfin. si les 4 sont identiques, la mise sera multipliee par 10. 

Le jeu se termine apres 20 parties, avec I'aflichage des resultats et les 
impressions de votre FX 702 P. 



LIST 19 


56 PPJ "PARTIE HO" 


98 E=IHT «t>18i 


B 388 


8;"lfISE>2" 


5 URIT 8 


;H"GSB 388 


:IFE=8lE=l 


158 IF fll=St:V=VH 


185 6SB 388 


ie )=*«• jack-pot 


55 PP.! "C«6H0TTE=" 


95 F=IHT (S6HM18) 


155 IF B»=Ct;V=V»l 


196 IF V=3:lt=IW)«3: 


««" 


;»;• t";:SSB 38 


:|F F=8!F=1 


168 IF flt=B):IF Bt= 


PRT CSR 8:"Sfl6H 


15 FOB P=l TO LEW 


8 


168 6=M (P6HHI8) 


Cf:V=V»2 


E !";:SSB 388 


S) 


68 IHP "VOTRE MSE 


:IF6=8:S=I 


165 IF!!=«:IFC)= 


195 IF V=3:PRT CSR 


28 PET CSR 4;HI0<! 


',6 


115 H=IKT (R6KII18! 


Sl;v=v»2 


8:"ltISE>3" 


,?)i:HEXT F 


65 IF 0>tl;8Se 558: 


:IFH=8;H=1 


178 IF V=8:f1=l1-D:PR 


288 SSB 388 


1'j FOB Z=l TO <:PP. 


60T0 55 


128 9l=III0(Eil) 


F CSR 8I"PERDU 


285 IF 'M!fl*0'18 


T fSSB 1866 


78 IF OilHT MSB 


125Et=ffI0(F,l) 


!"!:6SB3H 


:PRT CSR 8:"S0S 


36 PRT CSt 4;);:63 


588:6010 66 


136 Ct=«I0(6,l) 


175 IF V=llH=llt0'2: 


HE !"::SSB 388 


B 1666:HEXT Z 


75 IF 0=8:6S8 586: 


135St=ltlO(H,l) 


PRT CSR 8i"6B6K 


216 IF Vi5!PRT CSR 


35 VdC :t="H|i«; 


SOTO 66 


148 PRT CS! SiMiCS 


E i"::5SB368 


8l"HISEM8" 


i?»" 


88 PPT "C66«0TTE=" 


R 9:BCCSR 12JC 


177 IF V=2:f1=W5: 


215 6SB 398 


■■■>. SSt 586:11=1688: 


ilH;" I*::6SB 


CCSR I5;si;:ne 


PRT CS! 8i"666H 


228 HiHEXT H:6OT0 


FOR H=I TO 26 


388 


XT 


E i"s:»B3M 


358 


45 IF K=8;PRT CSR 


83 6SB 668 


145 PRT CSR 6lfltiCS 


178 IF »=2:PRT CSR 


388 FOR T=8 TO 56:H 


3;"V0US tTVEZ PE 


85 FOP 0=1 TO 186/ 


R 9lBI:CSR I2SC 


3;"MISE*5" 


EXT T:PPT :PET 


PRI >":EW 


5 


IICS8 15:S*;:SS 


188 IF V=I5PRT CSR 


358 IF !K1868:PRT " 



PERTES:":1868-H 


ERROHEE":SSB 3 


i" HiSSe 369 


66: RET 


366 IF H<5B8iPRT CS 


525 IHP "V0OLEZ-V00 


R 4!"TRES HOYEH 


S REJOUER'.Xl 


.'....":6SB 388: 


536 IF Xt="0" THEH 


6010 525 


16 


365 IF IK 1688; PRT C 


535 EHD 


SR 4;"H0VEN.... 


558 PRT "HE TRICHEZ 


,":6SB 388:8010 


PBS...'":11=K-5 


525 


8:SSB 388:RET 


37! IF IDI699;P!T " 


668 PRT CSR 6:"I";C 


6flIHS:":tl-186e: 


SR9:"t"!CSR 12 


" t"; :SSB 3M 


I'I'JCS! 15:"l" 


386 PRT CSR 8:"BRBV 


; 


'":GSB 399 


618 HI=KEr:lF»!="f 


396 PRT CSR t;"FELI 


";RET 


CITBTIOHS...":G 


628 SOTO 666 


SB 369:6010 525 1886 FOR V=8 TO 8:NE 


568 PRT CSR 4;"HISE 


XT Y: PET ■ 



V^P 



41 



suite de la pag 


i n 




\l/ 


855 t 


884 XEO 16 


^9r 


856 X=Y' 


885 3 




857 RTN 


886 STO 65 




858 2 


887 XEO 96 




859 t 


888 RCL 53 


83UL0L I 


869 X=Y? 


889 X=8? 


832 PSE 


861 RTN 


899 CTO 11 


833 8EEP 


862 7 


891 RCL 54 


834 "SCORE • 


863 t 


892 XEO 88 


835 HRCL 5? 


864 X=Y? 


893 an 


836 "I--- 


865 RTN 


894 BRCL X 


837 BRCL 62 


866 1 


895 -F-" 


838 llVIl V 


867 ♦ 


896 9VIEN 


839 GTO 68 


868 X=Y' 


897 BEEP 


848»LBL 23 


869 RTN 


898 RCL 58 


841 RCl 59 


878 1 


899 STO 63 


842 19 


871 t 


989 XEO 16 


843 - 


872 X=Y? 


991 XII) 96 


844 Ml 


873 RTN 


992 RCL 53 


845 RTN 


874»L8L 14 


993. X=8' 


846 1 


875 •?■ 


994 CTO 12 


847 t 


876 HVIEH 


995 RCl. 54 


848 X=V> 


877 BEEP 


996 XEO 98 


849 RTN 


878 CTO 19 


987 HRCL X 


859 1 


8?9tLBL H 


988 9V1EU 


851 • 


888 SF 94 


999 BEEP 


852 x=y 


881 SF 81 


918 CTO 18 


853 RTN 


882 RCL 59 


911 .END. 


854 7 


883 STO 63 


1 
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HEWLETT 
PACKARD 



;qppi<2 




* N 

La Regie \ 
a Calcul * 
l 6r distributeur 
agree 
. Hewlett Packard J 

^FRANCE-/ 



Sjysaft-eftmc.. 

HP 4IC + module quadruple HP 82 1 70 

Promotion 

Lecteurs be carte HP 82 104 

Impnmanie HP 82 143 
Leaeur de cassettes digitales 
Module HP IL HP 82160 
Module X fonerjom HP 82180 



Module rnaihematiques 3041-15010 

BatteneHP41HP 82120 

Chargeur HP 41 HP 82066B 

Lrvrets dapplicalion (28 tit/es) 

Jeu de 4 grilles crassignafJon HP 82152 

Clavier a membrane HP 82200 

Produits compatf W« HP 41 

Port expander 8 entrees et sort»es 

TaWe traeante 4 couleurs tandy 

interface HP IL 

Uvres 

Programme HP 41 

Au fond de la HP 41 

Autour de la boucle 

HP 41 extended function made easy 

Calculator tips and routines (en anglars) 

The HP IL system; an introductory Guide 

to the Hewlett Packard interface loop 



1 500F 


n 


1 650 F 


1 ; 


3.350 F 


r i 


4 250F 


r : 


1.060 F 


D 


500 F 


D 


310F 


n 


370 F 


1 1 


140 F 


i i 


135F 


1 1 


1 15 F 


n 


235 F 


1 1 


1.250 F 


n 


5.900 F 


n 


102 F 


1 1 


100F 


n 


100F 


n 


198 F 


n 


184 F 


□ 


295 F 


-.] 



Unrte centrale 

CodeurSECAM 

Lecteur enregtsireur 

Extension memoire 16k 

Controleur com. 

Sonetjeux 

Memo Basic 

Imprimante thermique 

Cordon rmprimante thermique 

Impfimante Impact 

Cordon rmprimante impact 

Contr lecL drsquette 

Lett disquene 

Pfouleau papier thermique 

LogJciels Aniware 

Budget familial 

Carnei cTadresses 

Gere* voire brbdotheque 

Gerez vos fiches 



Pnx rrc 




2.480 F 


G 


600F 


1 1 


800 F 


1 1 


750 F 


' i 


850 F 


i 1 


600F 


1 ; 


480 F 


I i 


2.500 F 


1 1 


290 F 


M 


2.500 F 


1 1 


290 F 


I 1 


3.800 F 


O 


2.600 F 


(.1 


75 F 


'1 


450 F 


r i 


480 F 


ri 


490 F 


i : 


525 F 


rj 



BON DE COWHANDS 

TARIFS Mi 17/2/84 



Nom 

Prenom 

Adresse 

Code Postal 
VIllc 



Ces prlx son! indlcatifs et peuvenl etre modifies 

sans preavls. 

Produits dkponlbles dans la llmlie de not slocks 

en magasln. 

PartUpMon aux frai*, de port el fl" expedition en 

recommande. pour les logldeli ; + 30 F. 

Promotion complete ; t ran ■.port en r : 20 kilos + 185 P. 

LA REGLE A CALCUL : 

65/67, 6d Saint-Germain. 75005 PARIS 

Tel. ; 325.68.88 - Telex ; ETRAV 220064F/1303 RAC 




zx spectrum 



1.965 F D 
190 F a 
360 F a 



• 1 logieiel apple logo standard 
Logpaefe APPLE aTsurdBq 



Apple logo standard 
Apple superpikM 
Logidel Pascal n 



95 F 


n 


75 F 


1 1 


1 15 F 


1 ] 


54 F 


1 1 


54 F 


1 1 


160 F 


u 



III — 



Spectrum 48 K PAL 
Modulateur noir et blanc 
Adaptateur Peritel 
Jmprimante pour ZX 81 
et SPECTRUM alf acorn 32 

Logkiels 
Simulateur de vol 
Othello 
Chess 

Maths 
Hisloire 
Devpac assembleur/dtsassembleur 

ZX8I 

GammeZXBl 

ZX81 

Extension 16 K 

LogkJeb 

Echets 

Simulation de vol 

Gestion compte bancaire 

Vucalc 

Vufile 

ZX mulufichier 

Haute resolution fsoftl 



Les perrpheriques forirtionnent 
uniquement en cHani integres dans 
le systeme d 'expansion penpherique 
PHP 1200. 

Texas Instruments •srrsr™" 



PrWTTC 




1.600 F 


i 1 


1 857F 


il 


1.877 F 


U 



580 F 


n 


360 F 


D 


95 F 


1 1 


95 F 


1 1 


95 F 


1 1 


110F 


! ) 


110F 


1 1 


I50F 


1 1 


95 F 


1 1 



pour APPLE r rt APPLE ■ 4S K 



Maths 1: 

Formes indeterminees. Iimrtes. 

logarrthmes el exponentielles 

Maths 2: 

Suites et integrate 

Maths3: 

Trigonometrie 

Nombres complexes 

Physique I; 

Induction et condenviicuis 

Produits vectoriels 

Physique 2: 

Circuits oscillants (parution . 

janvier 1984) 



EDHOGO. un langage ideal pour de 
jeunes cnfanls |meme s'ils ne savent pas 
encore lire grace a la carte Porte -Parole 
qui fait parler rordmaieur). 
Le fameux langage LOGO, en francais. 
dan 5 la version originate developpee 
a I'Unrvcrvte amencaine MIT 



pnx nc 




295 F 


(1 


295 F 


1 1 


295 F 


1 1 


295 F 


I 1 


295 F 


n 


295 F 





295 F 


1 1 



Voire micro-ordinateur peui parler I 

Ecoutez ! Une voix Claire et artxulee 

vous parte en francais. 

Essaye?-le avec EDI-LOGO et twer Mde 

nornbreux autres programmes (les 

paroles sont stockees sur vos disquettes 

EdKiel) 

LogiciriVTFl pour APPLE MrtW 

L'organisateur 
Le redacteur 
Le correct eur 
Dossier 

Geser (gestion par le seuil 
de renlatWitel 



Le Basic expliquc 
Aucocu rJuBask 
Comptaddrtion 

Reseau 

Controleur aenen 

Fractions 

Decimales 

AnthmCtique 

Savoir compter 

Savoir cenre 

Perception 

Cherche/ la difference 

AugmenteS voire vocabulaire I 

Augmented voire vocab '<■<«'■ I 

Suite de nombres 

Concentration 

Pareilou different 

Mots caches 

Mots caches geographic 

Mots croises et mots secrets 




I 65/< 



CONSOLES ET ACCESSOfRES 

•OrdlnatAjrfenm 1199/4 
dlrcaemeni compMMe t ■■ ■■ in ■ 
plrl cWvWon 

• ModuUceurPAl LM 

• ModuiMcui SI ' AM adaptable w 
r-,ni irv-vi'.'-ijr francafi 

AManud n 99/* A 

1 ■ . ■ ■ ;nl:l. I,- 

■ m ■,'■■ I ■ .■ ' etc 

• Paire manettn Jcux 

• lynti 

., . tct\ fM" 

• M.«jti-''"-.| ■ ■ ■ 



Prix JIC 




1 1901 


I I 


743 F 


11 


500 F 


t) 


54 r 




252 1 




'• 


M 


2551 


U 


680 F 




4961 





• Cane d extension mcv (RAM) 32 K 

• Cine P-Code : permet Texccution de 
programmes ecrns avec le systeme P 



EOOCATION 

• Addrtion-Substraciion I 

• Additxjn-Substraction II 

• AddRlon-CBnon 

• Basic par soi-meme 

• DMsion-d< % molition 

• Division I 

• Dragon Savant 

• Early Reading 

OJeuKtrEntn prtse 

• Meteor rnullipliottioii 

• Mission molns 
f iMiiiiiplicaiionl 

• Music Maker 
•'Numeration II 

'ili- basic etendu par soi-meme 
Tl-Logo II 

LOISIflS 

A Blasto 

.- carWan 

• Conned foul 

fl flHltlj-lll 

• ji'iiK video II 

fi Munch Man 

• otheoo 

■ ■■ ■ ■■ 
me .<"■!' li 
.-. n invaders 

• rombstone cfiy 

t ■ I ::.:■■ 

Adventure 

• teux Retro II 



Prix TT.C 




1.1 30F 


1 1 


990 F 





2.200 F 


1 1 



» I rfhi'.'r rl'arJreSM.". 



870.93 F 


11 




937.50 F 


il 




/>ao.?or 


II 




55 1,20 F 


1 1 




J 93.20 F 


1 1 




293.20 F 


1 1 




535.46 F 


1 1 




539.46 F 


11 




680201 


1 1 




410.47 F 


1 1 




539.46 F 


1 1 




4 10.4/ F 


1 1 




293.20 F 


1 1 




293.20 F 


1 1 




293,201 


1 1 




793.20 1 


1 1 




793.20 F 


1 1 




793.20 F 


1 1 




293.20 F 


1 1 




793.20 F 


1 1 




293.20 F 


L) 




Prix TT.C 






695 F 


11 




66F 


n 




188 F 


1 1 





• Editor assembler 
O Extended basic 

• Mini memory 

• Programming aids III 

• Terminal Emulator II 



134 F 


n 


134 F 


1 1 


134 F 


1 1 


66F 


1 1 


134 F 


LI 


134 F 


1 1 


134 F 


1 1 


134F 


1 1 


66F 


1 1 


134F 


1 1 


I34F 


1 1 


134 F 


□ 


188 F 


1 1 


134 F 


1 1 


66F 


1 1 


795 F 


1 1 



1 14 r 


1 1 | 


1 111 


1 1 1 


1 Ml 


1 1 1 


■ 


1 1 


I 141 


u | 


2521 




i.-.'M 


Ml 


252 1 




I 141 


: 


1881" 


• : 


I 141 




1 |41 


" 


II II 


! 1 


134 F 


1 I 1 



1490F 


O 


PrutTTC 




L39SF 


Q 



2.195 F 


1 1 


1.695 F 


1 1 


1-695 F 


1 1 


2.500 F 


D 


450F 


1 1 



500 F 


1 1 


500 F 


1 1 


500 F 


1 1 


249F 


1 1 


500 F 


1 1 



AUTRES LOGUELS 








OTf-OJk 


1751 


M 


O Gestion prrvee (l'Expansion| 
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